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8K basic 



INTRODUCTION 

8K BASIC is an interactive programming language with a vari- 
ety of applications. It is used in scientific and business environments 
to solve both simple and complex mathematical problems with a 
minimum of programming effort. It is used by educators and stu- 
dents as a problem-solving tool and as an aid to learning through 
programmed instruction and simulation. 

In many respects the BASIC language is similar to other pro- 
gramming languages (such as FOCAL and FORTRAN), but 
BASIC is aimed at facilitating communication between the user 
and the computer. The BASIC user types in the computational 
procedure as a series of numbered statements, making use of com- 
mon English words and familiar mathematical notations. Because 
of the small number of commands necessary and its easy applica- 
tion in solving problems, BASIC is one of the simplest computer 
languages to learn. With experience, the user can add the advanced 
techniques available in the language to perform more intricate 
manipulations or express a problem more efficiently and concisely. 

8K BASIC is an extended version of DEC's 4K BASIC,i but 
has additional features and requires 8K of core. The user who has 
no familiarity with the BASIC language may wish to refer to the 
EduSystem Handbook for a background description of the lang- 
uage fundamentals, and for information pertaining to working 
with BASIC at the computer. 

The minimum system configuration for 8K BASIC is a PDP-8 



1 4K BASIC, or EduSystem 10, is the most fundamental BASIC in DEC's 
series of EduSystems. This series is directed primarily for use in an educa- 
tional environment. Information concerning the EduSystems may be ob- 
tained from DEC'S PDP-8 Educational Marketing Department. 
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series computer with 8K of core memory. Supported options in- 
clude a high-speed reader and punch, and an LP08 Hne printer. 

New features provided by 8K BASIC include one and two- 
dimensional subscripting, faster execution time, user-coded func- 
tions, use of the LP08 line printer and high-speed reader/punch, 
and specification of input and output devices from any part of a 
program. 

Loading and operating instructions and a command summary 
are included at the end of the manual. 

NUMBERS 

BASIC treats all numbers (real and integer) as decimal numbers 
— that is, it accepts any number containing a decimal point, and 
assumes a decimal point after an integer. The advantage of treating 
all numbers as decimal numbers is that the programmer can use 
any number or symbol in any mathematical expression without re- 
gard to its type. 

In addition to integer and real formats, a third format is recog- 
nized and accepted by 8K BASIC and is used to express numbers 
outside the range .01<=x<=l, 000,000. This format is called 
exponential or E-type notation, and in this format, a number is 
expressed as a decimal number times some power of 10. The 
form is : 

xxEn 

where E represents "times 10 to the power of"; thus the number 
is read: "xx times 10 to the power of n." For example: 

23.4E2 = 23.4*10^ = 2340 

Data may be input in any one or all three of these forms. Re- 
sults of computations are output as decimals if they are within the 
range previously stated; otherwise, they are output in E format. 
BASIC handles seven significant digits in normal operation and 
input/output, as illustrated below: 

Value Typed In Value Output By BASIC 



.01 .01 

.0099 9.900000E-3 

999999 999999 

1000000 l.OOOOOOE+6 



BASIC automatically suppresses the printing of leading and trail- 
ing zeros in integer and decimal numbers, and, as can be seen 
from the preceding examples, formats all exponential numbers in 
the form: 

(sign) x.xxxxxx E (+ or — ) n 
where x represents the number carried to six decimal places, E 
stands for "times 10 to the power of," and n represents the ex- 
ponential value. For example: 

-3.470218E-h8 is equal to -347,021,800 
7.260000E-4 is equal to .000726 

VARIABLES 

A variable in BASIC is an algebraic symbol representing a 
number, and is formed by a single letter or a letter followed by a 
digit. For example: 

Acceptable Variables Unacceptable Variables 

I 2C — a digit cannot begin 

a variable 
B3 AB — two or more letters 

cannot form a vari- 
able 
X 
The user may assign values to variables either by indicating the 
values in a LET statement, or by inputting the values as data; 
these operations are discussed further on in the manual. 

ARITHMETIC OPERATIONS 

BASIC performs addition, subtraction, multiplication, division 
and exponentiation, as well as more complicated operations ex- 
plained in detail later in the manual. The five operators used in 
writing most formulas are: 

Symbol 
Operator Meaning Example 



+ 


Addition 


A + B 


— 


Subtraction 


A-B 


* 


Multiphcation 


A * B 


/ 


Division 


A / B 


t 


Exponentiation 
(Raise A to the 
Bth power) 


A T B 



Priority of Arithmetic Operations 

In any given mathematical formula, BASIC performs the arith- 
metic operations in the following order of evaluation: 

1. Parentheses receive top priority. Any expression within 
parentheses is evaluated before an unparenthesized expres- 
sion. 

2. In absence of parentheses, the order of priority is: 

a. Exponentiation 

b. Multiplication and Division (of equal priority) 

c. Addition and Subtraction (of equal priority) 

3. If either 1 or 2 above does not clearly designate the order of 
priority, then the evaluation of expressions proceeds from 
left to right. 

The expression ATBtC is evaluated from left to right as follows: 

1. AtB = step 1 

2. (result of step l)tC = answer 

The expression A/B*C is also evaluated from left to right since 
multiplication and division are of equal priority: 

1. A/B = step 1 

2. (result of step 1)*C = answer 

PARENTHESES 

Parentheses may be used by the programmer to change the 
order of priority (as listed in rule 2 above), as expressions within 
parentheses are always evaluated first. Thus, by enclosing expres- 
sions appropriately, the programmer can control the order of eval- 
uation. Parentheses may be nested, or enclosed by a second set (or 
more) of parentheses. In this case, the expression within the inner- , 
most parentheses is evaluated first, and then the next innermost, 
and so on, until all have been evaluated. 

Consider the following example : 

A=7*( CBt2+4 )/X) 

The order of priority is: 



1. 


Bt2 


= step 1 


2. 


(result of step l)+4 


= step 2 


3. 


(result of step 2)/X 


= step 3 


4. 


(result of step 3)*7 


= A 



Parentheses also prevent any confusion or doubt as to how the 
expression is evaluated. For example: 

A*Bt2/7+B/C+Dt2 
C(A*Bt2)/7 ) + C CB/C)+Dt2) 

Both of these formulas will be executed in the same way. How- 
ever, the inexperienced programmer or student may find that the 
second is easier to understand. 

Spaces may be used in a similar manner. Since the BASIC com- 
piler ignores spaces, the two statements: 

10 LET B = Df2 + 1 
10LETB=Dt2+l 

are identical, but spaces in the first statement provide ease in 
reading. 

RELATIONAL OPERATORS 

A program may require that two values be compared at some 
point to discover their relation to one another. To accomplish this, 
BASIC makes use of the following relational operators: 

= equal to > greater than 

< less than >= greater than or 

<= less than or equal to 

equal to <> not equal to 

Depending upon the result of the comparison, control of program 
execution may be directed to another part of the program, or the 
validity of the relationship may cause a value of to 1 to be as- 
sociated with a variable (that is, if a condition is true, a value of 
1 is assigned; if a condition is not true, then the value of is re- 
turned). Relational operators are used in conjunction with IF and 
LET statements, both of which are discussed in greater detail later 
in the manual. 

The meaning of the equal ( = ) sign should be clarified. In 
algebraic notation, the formula X=X+1 is meaningless. However, 
in BASIC (and most computer languages), the equal sign desig- 
nates replacement rather than equality. Thus, this formula is 
actually translated: "add one to the current value of X and store 



the new result back in the same variable X." Whatever value has 
previously been assigned to X will be combined with the value 1. 
An expression such as A=B+C instructs the computer to add the 
values of B and C and store the result in a third variable A. The 
variable A is not being evaluated in terms of any previously as- 
signed value, but only in terms of B and C. Therefore, if A has 
been assigned any value prior to its use in this statement, the old 
value is lost; it is instead replaced by the value of B+C. 

IMMEDIATE MODE 

There are two commands available which allow BASIC to act 
as a calculator — PRINT and LET. The user types in the algebraic 
expression which is to be calculated, and BASIC types back the 
result. This is called immediate mode since the user is not required 
to write a detailed program to calculate expressions and equations, 
but can use BASIC to produce results immediately. 

PRINT Command 

The PRINT command is of the form: 

PRINT expression 

and instructs BASIC to compute the value of the expression and 
print it on the Teletype. The expression may be made up of any 
decimal number, the arithmetic operators mentioned previously, and 
the functions which are discussed further on in the manual. (These 
may be used in conjunction with a string of text, as explained in the 
section concerning the PRINT statement.) For example: 



PRINT 1/8T8 
5.96046'^E-08 

LET Command 

Values may be assigned to variables by use of the LET com- 
mand as follows : 

LET variable = expression 

The computer does not type anything in response to this com- 
mand, but merely stores the information. This information may 
then be used in conjunction with a PRINT command to calculate 
results. For example: 



LET Pl=3. 14159 

PRINT Pl^f^-^ta 
50 .26544 



BASIC STATEMENTS 
Example Program 

The following example program is included at this point as an 
illustration of the format of a BASIC program, the ease in running 
it, and the type of output that may be produced. This program 
and its results are for the most part self-explanatory. Following 
sections cover the statements and commands used in BASIC pro- 
gramming. 



10 REM - PROGRAM TO TAKE AVERAGE OF 

15 REM - STUDENT GRADES AND CLASS GRADES 

20 PRINT "HOW MANY STUDENTS^ HOW MANY GRADES PER STUDENT"; 

30 INPUT A>B 

40 LET 1=0 

50 FOR J=I TO A-1 

55 LET V=0 

60 PRINT "STUDENT NUMBER =";j 

7 5 PRINT "ENTER GRADES" 

7 6 LET D=J 

80 FOR K=D TO D+CB-1 ) 

81 INPUT G 

82 LET V=V+G 
85 NEXT K 

90 LET V=V/P 

95 PRINT "AVERAGE GRADE =";V 

96 PRINT 

99 LET Q=Q+V 

100 NEXT J 

101 PRINT 

102 PRINT 

103 PRINT "CLASS AVERAGE =";Q/A 

104 STOP 
140 END 



RUN 

HOW MANY STUDENTS:. HOW MANY GRADES PER STUDENT? 5,4 

STUDENT NUKBER = 

ENTER GRADES 

?78 

?86 

?88 

AVERAGE GRADE =81.5 

STUDENT NUKBER = 1 

ENTER GRADES 

?59 

?86 

?70 

?87 

AVERAGE GRADE = 75.5 

STUDENT NUMBER = 2 

ENTER GRADES 

?58 

?64 

?75 

?80 

AVERAGE GRADE = 69.25 

STUDENT NUMBER = 3 

ENTER GRADES 

?88 

?92 

?85 

?79 

AVERAGE GRADE = 86 

STUDENT NUMBER = ii 

ENTER GRADES 

?60 

?78 

?85 

?80 

AVERAGE GRADE = 75-75 



CLASS AVERAGE = 77.6 
READY. 



Statement Numbers 

An integer number is placed at the beginning of each line in a 
BASIC program. BASIC executes the statements in a program in 
numerically consecutive order, regardless of the order in which 
they have been typed. A common practice is to number lines by 
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fives or tens, so that additional lines may be inserted in a program 
without the necessity of renumbering lines already present. 

Multiple statements may be placed on a single line by sep- 
erating each statement from the preceding statement with a back- 
slash (SHIFT/L). For example: 

10 A=5\B=.2\C=3\PRIWT "ENTER DATA" 

All of the statements in line 10 will be executed before BASIC con- 
tinues to the next line. Only one statement number at the beginning 
of the entire line is necessary. However, it should be remembered 
that program control cannot be transferred to a statement within 
a line, but only to the first statement of the line in which it is con- 
tained (see the section entitled Transfer of Control Statements). 

Commenting the Program 

REM 

The REM or REMARK statement allows the programmer to 
insert comments or remarks into a program without these com- 
ments affecting execution. The BASIC compiler ignores every- 
thing following REM. The form is : 

(line number) REM (message) 

In the Example Program, lines 10 and 15 are REMARK state- 
ments describing what the program does. It is often useful to put 
the name of the program and information relating to its use 
at the beginning where it is available for future reference. Remarks 
throughout the body of a long program will help later debugging 
by explaining the purpose of each section of code within the 
program. 

Terminating the Program 
END 

The END statement (Une 140 in the Example Program), if 
present, must be the last statement of the entire program. The form 
is: 

(line number) END 

This statement acts as a signal that the entire program has been 
executed. Use of the statement is optional. However, if the pro- 
gram contains an END statement, after execution, variables and 
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arrays are left in an undefined state, thereby losing any values they 
have been assigned during execution. 

STOP 

The STOP statement is used synonymously with the END state- 
ment to terminate execution, but while END occurs only once at 
the end of a program, STOP may occur any number of times. The 
format of the STOP statement is : 

(line number) STOP 

This statement signals that execution is to be terminated at that 
point in the program where it is encountered. 

The Arithmetic Statement 

LET 

The Arithmetic (LET) statement is probably the most com- 
monly used BASIC statement and is used whenever a value is to 
be assigned to a variable. It is of the form : 

(line number) (LET) x = expression 

where x represents a variable, and the expression is either a num- 
ber, another variable, or an arithmetic expression. The word 'LET' 
is optional; thus the following statements are treated the same: 

100 LET A=AtB+10 110 LET C=F/G 

100 A=AtB+10 110 C=F/G 

As mentioned earlier, relational operators may be used in a LET 
statement to assign a value of (if false) or 1 (if true) to a 
variable depending upon the validity of a relationship. For example: 



100 


A=1\B=2 


1 10 


C=A=B 


120 


D=A>B 


1 30 


E=A<>B 


140 


PRINT CtD^E 


1 50 


END 



Translated, this actually means "let C=l if A=B (0 otherwise); 
let D=l if A>B (0 otherwise)" and so on. Thus, the values of C, 
D, and E are printed as follows : 
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RUN 


READY. 



There is no limit to the number of relationships that may be tested 
in the statement. 

Input/ Output Statements 

Input/Output statements allow the user to bring data into a 
program and output results or data at any time during execution. 
The Teletype keyboard, low or high-speed reader/punch, and 
LP08 line printer are all available as I/O devices in 8K BASIC. 
Statements which control their use are described next. 

READ AND DATA 

READ and DATA statements are used to input data into a pro- 
gram. One statement is never used without the other. The form of 
the READ statement is: 

(Hne number) READ xl, x2, . . . xn 

where xl through xn represent variable names. For example: 

10 READ AjBjC 

A, B, and C are variables to which values will be assigned. Vari- 
ables in a READ statement must be separated by commas. READ 
statements are generally placed at the beginning of a program, but 
must at least logically occur before that point in the program 
where the value is required for some computation. 

Values which will be assigned to the variables in a READ state- 
ment are supplied in a DATA statement of the form: 

(line number) DATA xl, x2, . . . xn 

where xl through xn represent values. The values must be sep- 
arated by commas and occur in the same order as the variables 
which are listed in the corresponding READ statement. A DATA 
statement appropriate for the preceding READ statement is: 

70 DATA 1,2,3 
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Thus, at execution time A=l, B=2, and C=3. 

The DATA statement is usually placed at the end of a program 
(before the END statement) where it is easily accessible to the 
programmer should he wish to change the values. 

A READ statement may have more or fewer variables than 
there are values in any one DATA statement. The READ state- 
ment causes BASIC to search all available DATA statements in 
the order of their line numbers until values are found for each 
variable in the READ. A second READ statement will begin read- 
ing values where the first stopped. If at some point in the program 
an attempt is made to read data which is not present or if the data 
is not separated by commas, BASIC will stop and print the follow- 
ing message at the console: 

DATA ERROR AT LIME XXXX 

where XXXX indicates the line which caused the error. 

RESTORE 

If it should become necessary to use the same data more than 
once in a program, the RESTORE statement will make it possible 
to recycle through the DATA statements beginning with the lowest 
numbered DATA statement. The RESTORE statement is of the 
form: 

(line number) RESTORE 

An example of its use follows : 

15 READ B^C^D 



55 RESTORE 
60 READ E^FjG 



80 DATA 6,3^4,7>9^2 

100 END 

The READ statements in lines 15 and 60 will both read the first 
three data values provided in line 80. (If the RESTORE statement 
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had not been inserted before line 60, then the second READ would 
pick up data in line 80 starting with the fourth value. ) 

The programmer may use the same variable names the second 
time through the data, or not, as he chooses, since the values are 
being read as though for the first time. In order to skip unwanted 
values, the programmer may insert replacement, or dummy, vari- 
ables. Consider: 



1 REM - PROGRAM TO ILLUSTRATE USE OF RESTORE 
20 READ N 

25 PRINT "VALUES OF X ARE:" 

30 FOR 1=1 TO N 

40 READ X 

50 PRINT X, 

60 NEXT I 

70 RESTORE 

185 PRINT 

190 PRINT "SECOND LIST OF X VALUES" 

200 PRINT "FOLLOWING RESTORE STATEMENT:" 

210 FOR 1=1 TO N 

220 READ X 

230 PRINT X, 

240 NEXT I 

2 50 DATA 4,1^2 
251 DATA 2,i\ 
300 END 



RUN 

VALUES OF X ARE: 

1 2 3 

SECOND LIST OF X VALUES 
FOLLOWING RESTORE STATEMENT: 

i\ 1 2 

READY. 



The second time the data values are read, the first X picks up 
the value originally assigned to N in line 20, and as a result, BASIC 
prints: 
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To circumvent this, the programmer could insert a dummy variable 
which would pick up and store the first value, but would not be 
represented in the PRINT statement, in which case the output 
would be the same each time through the list. 

INPUT 

The INPUT statement is used when data is to be supplied by 
the user from the Teletype keyboard while a program is executing, 
and is of the form: 

(line number) INPUT xl, x2, . . . xn 

where xl through xn represent variable names. For example: 

25 INPUT A^B^C 

This statement will cause the program to pause during execution, 
print a question mark on the Teletype console, and wait for the 
user to type in three numerical values. The user must separate the 
values by commas; they are entered into the computer by his press- 
ing the RETURN key at the end of the list. 

If the user does not insert enough values to satisfy the INPUT 
statement, BASIC prints another question mark and waits for more 
values to be input. When the correct number has been entered, 
execution continues. If two many values are input, BASIC ignores 
those in excess of the required number. The values are entered 
when the user types the RETURN key. 

PTR 

A PTR statement is used when data is to be input from the high- 
speed paper tape reader. The format of the data on the paper tape 
must be the same as it would be if it were input from the Teletype 
keyboard. If more than one value is to be input at a time, the 
values must be separated by commas. The tape must be positioned 
in the reader before it is called by the program; while it is reading, 
there is no echo (type out) on the Teletype. The form is: 

(line number) PTR 

The PTR statement is most useful for inputting large amounts of 
data in conjunction with the INPUT command. The following 
program accepts 20 data values from the high-speed reader, prints 
a heading, the value input, and its sine on the Teletype: 
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50 PTR 

60 PRINT "SINE TABLE" 

100 FOR J=l TO 20 

1 10 INPUT A 

120 LET B=SINCA) 

1 30 PRINT A,B 

140 NEXT J 

1 50 END 



RUN 

SINE TABLE 

-.97 -.8248857 

-.911 -.7 90 1171 

-.872 -.7656171 

-.723 -.6616371 

-.719 -.6586325 

-.61 -.5728675 

-.502 -.4811798 

-.346 -.3391376 

-.33 -.324043 

-.283 -.2792376 

-.175 -.1741081 

-.155 -.1543801 

-.02 -.01999867 

.03 .0299955 

.093 .092866 

.127 .1266589 

.13 .1296341 

.42 .4077605 

.529 .5046703 

.632 .5907596 

READY. 



PRINT 

The PRINT statement is used to output results of computations, 
comments, values of variables, or plot points of a graph on the 
Teletype. The format is: 

(line number) PRINT expression 

When used without an expression, a blank line will be output on 
the Teletype. For more complicated formats, the type of expression 
and the type of format control characters following the word 
PRINT determines which formats will be created. 

In order to have the computer print out the results of a compu- 
tation, or the value of a variable at any point in the program, the 
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user types the line number, PRINT, and the variable nanie(s) 
separated by a format control character, in this case, commas: 



5 A=16\B=5\C=4 

10 PRINT A,C+R^SQR(A) 



In BASIC, a Teletype line is formatted into five fixed columns 
(called print zones) of 14 spaces each. In the above example, the 
values of A, C+B, and the square root of A will be printed in the 
first three of these zones as follows: 



RUN 
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READY. 




A statement such 


as: 



5 A=2.3\B=21\C=156.7 5\D=1 .1 34\E=23.4 
10 PRINT A^B^C^D^E 

will cause the values of the variables to be printed in the same 
format using all five columns : 

RUN 
2.3 21 156.75 1.134 23.4 

READY. 

When more than five variables are listed in the PRINT statement, 
the sixth value begins a new line of output. 

The PRINT statement may also be used to output a message or 
line of text. The desired message is simply placed in quotation 
marks in the PRINT statement as follows : 

10 PRINT "THIS IS A TEST" 

When line 10 is encountered during execution, the following will 
be printed : 

THIS IS A TEST 

A message may be combined with the result of a calculation or a 
variable as follows : 
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80 PRINT "AMOUNT PER PAYMENT ="R 

Assuming R=344.9617, when line 80 is encountered during execu- 
tion, this will be output as: 

RUN 

AMOUNT PER PAYMENT = 3-^4.9617 

READY. 

It is not necessary to use the standard five zone format for out- 
put. The control character semicolon (;) causes the text or data 
to be output immediately after the last character printed (sep- 
arated by one space.) If neither a comma nor a semicolon is used, 
BASIC assumes a semicolon. Thus both of the following: 

80 PRINT "AMOUNT PER PAYMENT ="R 
80 PRINT "AMOUNT PER PAYMENT =";R 

will result in : 

AMOUNT PER PAYMENT = 344.9617 

The PRINT statement can also cause a constant to be printed on 
the console. (This is similar to the PRINT command used in Im- 
mediate Mode.) For example: 

10 PRINT 1 .234,SQRC10014) 

will cause the following to be output at execution time: 

1.234 100.07 

Any algebraic expression in a PRINT statement will be evaluated 
using the current value of the variables. Numbers will be printed 
according to the format previously specified. 

The following example program illustrates the use of the control 
characters^ in PRINT statements : 



2 The user may wish to refer to the section entitled Functions for in- 
formation pertaining to three functions available for additional character 
control— TAB, PUT, and GET. 
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10 READ A,B^C 

20 PRINT A,B,C>At2,Bt2*Ct2 

30 PRINT 

40 PRINT AJB;CJAt2;Bt2;Ct2 

50 DATA 4,5,6 

60 END 



RUN 
h 5 6-16 25 

36 

4 5 6 16 25 36 

READY. 

As this example illustrates, if a number should be too long to be 
printed on the end of a single line, BASIC automatically moves the 
entire number to the beginning of the next line. 

Another use of the PRINT statement is to combine it with an 
INPUT statement so as to identify the data expected to be entered. 
As an example, consider the following program: 

10 REM - PROGRAM TO COMPUTE INTEREST PAYMENTS 

20 PRINT "INTEREST IN PERCENT"; 

25 INPUT J 

2 6 LET J=J/100 

30 PRINT "AMOUNT OF LOAN"; 

35 INPUT A 

40 PRINT "NUMBER OF YEARS"; 

4 5 INPUT N 

50 PRINT "NUMBER OF PAYMENTS PER YEAR"; 

5 5 INPUT M 
60 LET N=N*M 

6 5 LET I=J/M 
70 LET B=l+I 

7 5 LET R=A*I/C1-1/BTN) 
78 PRINT 

80 PRINT "AMOUNT PER PAYMENT =";R 

85 PRINT "TOTAL INTEREST =";R*N-A 

88 PRINT 

90 LET B=A 

95 PRINT " INTEREST APP TO PR IN BALANCE" 

100 LET L=B*I 

1 10 LET P=R-L 

120 LET B=B-P 

130 PRINT L,P>B 

140 IF B>=RGC TO 100 

150 PRINT B*I^R-B*I 

160 PRINT "LAST PAYMENT ="B=f=I+B 

200 END 
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RUN 

INTEREST IN PERCENT79 

AMOUNT OF LOAN 72500 

NUMBER OF YEARS ?2 

NUMBER OF PAYMENTS PER YEAR74 

AMOUNT PER PAYMENT = 344.9617 
TOTAL INTEREST = 259.6932 

INTEREST APP TO PR IN BALANCE 

56.25 288.7117 2211.288 

49.75399 295.2077 1916.081 

43.11182 301.8498 1614.231 

36.32019 308.6415 1305.589 

29.37576 315.5859 990.0035 

22.27508 322.6866 667.317 

15.01463 329.947 337.3699 
7.590824 337.3708 
LAST PAYMENT = 344.960 8 

READY. 



As can be noticed in this example, the question mark is gram- 
matically useful in a program in which several values are to be 
input by allowing the programmer to formulate a verbal question 
which the input value will answer. 

LPT 

The LPT statement is used to generate output on the LP08 line 
printer, and is of the form: 

(line number) LPT 

By inserting this statement anywhere in a program, all subsequent 
output, with the exception of error messages, will be printed on the 
line printer. The LPT statement is particularly advantageous for 
outputting large amounts of calculated data, as can be seen from 
this and following examples: 

100 LPT 

110 FOR F=30 TO 60 STEP 3 

120 PRINT F,Ft2 

130 NEXT F 

140 END 
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30 


90k; 


33 


1069 


36 


l?9fe 


3<» 


15?1 


a2 


l7ba 


a? 


2025 


46 


2304 


51 


2601 


5« 


2916 


57 


3249 


60 


3607 



When the END statement is encountered in the program, the 
output device is reset to the Teletype. 

PTP 

The high-speed paper tape punch is also available as an output 
device in 8K BASIC, permitting users to save data or output files 
quickly on paper tape. When the statement is encountered, all 
output is diverted from the Teletype to the high-speed punch. Con- 
trol automatically returns to the Teletype when the END statement 
is encountered. The form is: 

(line number) PTP 

By substituting this statement in line 100 of the previous program, 
all output, with the exception of error messages, will be sent to the 
high-speed paper tape punch instead of the line printer. 

TTY IN AND TTY OUT 

The Teletype may be placed under program control so that, 
during execution of a program, I/O may be obtained or sent alter- 
nately between any available device. By issuing the statement: 

(line number) TTY IN 

control of input is returned to the Teletype if it has been previously 
set to another device. Similarly, the statement: 

(line number) TTY OUT 

returns output control to the Teletype. 
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The following program makes use of most all the available I/O 
devices. The output, with the exception of paper tape, is also 
included. 



100 LPT 

110 PRINT "FIRST DEGREE EQUATION CALCULATION" 

120 TTY IN 

130 TTY OUT 

135 PRINT "TYPE XI Yl THEN X2 Y2" 

140 INPUT XUY1,X2,Y2 

150 X=X2-X1 

160 Y=Y2-Y1 

170 M=Y/X 

180 B=Y2-M*X2 

190 IF B>=0 THEN 300 

200 PRINT "Y="M"X"B 

210 LPT 

220 PRINT "Y="M"X"B 

230 GO TO 400 

300 PRINT "Y="M"X+"B 

310 LPT 

320 PRINT "Y="M"X+"B 

400 FOR Y=0 TO 10 STEP 2 

410 FOR X=0 TO 10 STEP .5 



420 


LET T=M*X+B- 


Y 




4 30 


IF T<>0 


THEN 


1 480 


440 


PRINT X. 


,Y 






4 50 


PTP 








4 60 


PRINT X. 


,Y 






470 


LPT 








4 80 


NEXT X 








4 90 


NEXT Y 








500 


END 








RUN 










TYPE XI Yl ■ 


THEN 


X2 


Y2 


?-3 


*-4^-l j0 








Y= ; 


2 X+ 2 








READY. 









The line printer output is the following: 

FIRST DEGREE CALCULATION 

2 

1 a 

2 h 

3 ^ 

a I'i 
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NOTE 

The Teletype low-speed reader and punch 
may be used as I/O devices at any time. No 
special statement is required. To read in data 
from the low-speed reader, position the tape 
over the sprocket wheel and set the reader to 
START when input is required. The tape 
will begin reading in. To punch a tape, set 
the low-speed punch to ON and all ouput 
will be punched on the low-speed punch. 

Using the low-speed I/O devices is, in 
effect, the same as using the Teletype key- 
board. Characters will be typed on the Tele- 
type keyboard as tapes are being read in or 
punched. 



Loops 

FOR, NEXT, AND STEP 

FOR and NEXT statements define the beginning and end of a 
loop. A loop is a set of instructions which are repeated over and 
over again, each time being modified in some way until a terminal 
condition is reached. The FOR statement is of the form: 

(line number) FOR v=xl TO x2 STEP x3 

where v represents a variable name, and xl, x2, and x3 all repre- 
sent formulas (a formula in this case means a numerical value, 
variable name, or mathematical expression), v is termed the index, 
xl the initial value, x2 the terminal value, and x3 the incremental 
value. For example: 

15 FOR K=2 TO 20 STEP 2 

This means that the loop will be repeated as long as K is less than 
or equal to 20. Each time through the loop, K is incremented by 2, 
so the loop will be repeated a total of 10 times. 

A variable used as an index in a FOR statement must not be 
subscripted, although a common use of loops is to deal with sub- 
scripted variables, using the value of the index as the subscript of 
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a previously defined variable (this is illustrated in the section con- 
cerning Subscripted Variables). 

The NEXT statement is of the form: 

(line number) NEXT 

and signals the end of the loop. When execution of the loop reaches 
the NEXT statement, the computer adds the STEP value to the 
index and checks to see if the index is less than or equal to the 
terminal value. If so, the loop is executed again. If the value of 
the index exceeds the terminal value, control falls through the loop 
to the following statement, with the value of the index equaling the 
value it was assigned the final time through the loop.^ 

If the STEP value is omitted, a value of +1 is assumed. Since 
+ 1 is the usual STEP value, that portion of the statement is fre- 
quently omitted. The STEP value may also be a negative number. 

The following example illustrates the use of loops. This loop is 
executed 10 times: the value of I is 10 when control leaves the 
loop. + 1 is the assumed STEP value. 



10 FOR 1 = 1 TO 1( 
20 NEXT I 
30 PRINT I 
40 END 



RUN 
10 

READY. 



If line 10 had been: 



10 FOR 1=10 TO 1 STEP -1 



the value printed by the computer would be 1. 

As indicated earlier, the numbers used in the FOR statement 



3 The user should note that this method of handling loops varies among 
different versions of BASIC. 
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are formulas; these formulas are evaluated upon first encountering 
the loop. While the index, initial, terminal and STEP values may 
be changed within the loop, the value assigned to the initial formula 
remains as originally defined until the terminal condition is reached. 
To illustrate this point, consider the last example program. The 
value of I (in line 10) can be successfully changed as follows: 



10 FOR 1=1 TO 10 
15 LET 1=10 
20 NEXT I 



The loop will only be executed once since the value 10 has been 
reached by the variable I and the terminal condition is satisfied. 

If the value of the counter variable is originally set equal to the 
terminal value, the loop will execute once, regardless of the STEP 
value. If the starting value is beyond the terminal value, tlie loop 
will also execute only once. 

It is possible to exit from a FOR-NEXT loop without the index 
reaching the terminal value. (This is known as a conditional trans- 
fer and is explained in the section entitled Transfer of Control 
Statements. ) Control may only transfer into a loop which has been 
left earlier without being completed, ensuring that the terminal 
and STEP values are assigned. 

Nesting Loops 

It is often useful to have one or more loops within a loop. This 
technique is called nesting, and is allowed as long as the field of 
one loop (the numbered lines from the FOR statement to the cor- 
responding NEXT statement, inclusive) does not cross the field of 
another loop. A diagram is the best way to illustrate acceptable 
nesting procedures: 
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:epi 


fABLE NESTING UNACCEPTABLE NESTING 


TECHNIQUES TECHNIQUES 


Two Level Nesting 




pFOR rFOR 




rFOR 

Lnext 


r-FOR 




Lnext 




rFOR J-NEXT 

Lnext 






•-NEXT 


Three Level Nesting 


i- 


—FOR r 


—FOR 




pFOR 


pFOR 




rFOR 

Lnext 


rFOR 

Lnext 






rFOR 

Lnext 


rFOR 




L-NEXT 




•-next 


Lnext 


- 


—NEXT L 


—next 



A maximum of eight (8) levels of nesting is permitted. Exceeding 
that limit will result in the error message: 

FOR ERROR AT LINE XXXX 

where XXXX is the number of the line in which the error occurred. 

Subscripted Variables 

In addition to single variable names, BASIC accepts another 
class of variables called subscripted variables. Subscripted variables 
provide the programmer with additional computing capabilities for 
handling lists, tables, matrices, or any set of related variables. 
Variables are allowed one or two subscripts. A siijgle letter forms 
the name of the variable; this is followed by one or two integers 
in parentheses and separated by commas, indicating the place of 
that variable in the list. Up to 26 arrays are possible in any pro- 
gram (corresponding to the letters of the alphabet), subject only 
to the amount of core space available for data storage. For ex- 
ample, a list might be described as A(I) where I goes from 1 to 5, 
as follows : 
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AC1)^AC2),A(3),AC4),AC5) 

This allows the programmer to reference each of the five elements 
in the list A. A two dimensional matrix A (I, J) can be defined in a 
similar manner, but the subscripted variable A can only be used 
once (i.e., A(I) and A(I,J) cannot be used in the same program). 
It is possible however, to use the same variable name as both a 
subscripted and an unsubscripted variable. Both A and A (I) are 
valid variable names and can be used in the same program. 

Subscripted variables allow data to be input quickly and easily, 
as illustrated in the following program (the index of the FOR state- 
ment in lines 20, 42, and 44 is used as the subscript) : 

10 REM - PROGRAM DEMONSTRATING READING 

11 REM - OF SUBSCRIPTED VARIABLES 
15 DIM AC5)^B(2,3) 

18 PRINT "ACD WHERE A=l TO 5J" 
20 FOR 1=1 TO 5 
25 READ AC I ) 
30 PRINT A(I ); 
35 NEXT I 

38 PRINT 

39 PRINT 

40 PRINT "BCI^J) WHERE 1=1 TO 2:" 
Al PRINT " AND J=l TO 3:" 

42 FOR 1=1 TO 2 

43 PRINT 

44 FOR J=l TO 3 
48 READ BCI^J) 
50 PRINT B(I,J>; 
5 5 NEXT J 

56 NEXT I 

60 DATA 1,2^3^4^,5^6^7*8 

61 DATA 8,7,6*5,4>3,2, 1 
65 END 



RUN 

AC I) WHERE A=l TO 5; 
12 3 4 5 

BCI,J) WHERE 1=1 TO 2! 
AND J=l TO 3; 

6 7 8 
8 7 6 
READY. 
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DIM 

From the preceding example, it can be seen that the use of sub- 
scripts requires a dimension (DIM) statement to define the max- 
imum number of elements in the array. The DIM statement is of 
the form: 

(line number) DIM Vi (nO, V2 (n^, m:>) 

where v indicates an array variable name and n and m are integer 
numbers indicating the largest subscript value required during the 
program. For example : 

15 DIM A(6,10) 

The first element of every array is automatically assumed to have 
a subscript of zero. Dimensioning A(6, 10) sets up room for an 
array with 7 rows and 1 1 columns. This matrix can be thought of 
as existing in the following form: 



Ao,o 


Ao,i . 


A(),io 


Ai.o 


Ai.i . , 


. . Ai,io 


A2.0 


A2,l . 


• A2,10 



Ae,() Ae,i • . . Ae.io 
and is illustrated in the following program: 
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10 


REM - MATRIX CHECK PROGRAM 


15 


DIM A(6,10 ) 


20 


FOR 1=0 TO 6 


22 


LET ACI>0)=I 


25 


FOR J=0 TO 10 


28 


LET A(0^J)=J 


30 


PRINT A( I, J); 


35 


NEXT J 


40 


PRINT 


45 


NEXT I 


50 


END 



RUN 

























1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


1 
































2 
































3 
































4 
































5 
































6 

































READY. 



Notice that a variable assumes a value of zero until another value 
has been assigned. If the user wishes to conserve core space by not 
making use of the extra variables set up within the array, he should 
set his DIM statement to one less than necessary, DIM A(5,9). 
This results in a 6 by 10 array which may then be referenced be- 
ginning with the A (0, 0) element. 

More than one array can be defined in a single DIM statement: 

10 DIM AC20), BC4,7) 

This dimensions both the list A and the matrix B. 

A number must be used to define the maximum size of the array. 
A variable inside the parentheses is not acceptable and will result 
in an error message by BASIC at run time. The amount of user 
core not filled by the program will determine the amount of data 
the computer can accept as input to the program at any one time. 
In some programs a TOO-BIG ERROR may occur, indicating 
that core will not hold an array of the size requested. In that event, 

28 



the user should change his program to process part of the data in 
one run and the rest later. 

Transfer of Control Statements 

Certain control statements cause the execution of a program to 
jump to a different line either unconditionally or depending upon 
some condition within the program. Looping is one method of 
jumping to a designated point until a condition is met. The follow- 
ing statements give the programmer added capabilities in this area. 

UNCONDITIONAL TRANSFER— GOTO 

The GOTO (or GO TO) statement is an unconditional state- 
ment used to direct program control either forward or back in a 
program. The form of the GOTO statement is : 

(line number) GOTO n 

where n represents a statement number. When the logic of the 
program reaches the GOTO statement, the statement(s) immedi- 
ately following will not be executed; instead execution is transferred 
to the statement beginning with the line number indicated. 

The following program never ends; it does a READ, prints 
something, and jumps back to the READ via a GOTO statement. 
It attempts to do this over and over until it runs out of data, which 
is sometimes an acceptable, though not advisable, way to end a 
program. 

10 REM - PROGRAM ENDING WITH ERROR 

1 1 REM - MESSAGE WHEN OUT OF DATA 
20 READ X 

25 PRINT ••X="X,"Xt2 = "Xf2 
30 GO TO 20 

35 DATA 1,5>10W5,20>25 
40 END 



RUN 






X= 1 


XT2 = 


1 


X= 5 


Xt2 = 


25 


X= 10 


Xt2 = 


100 


X= 15 


Xt2 = 


225 


X= 20 


Xt2 = 


400 


X= 25 


XT2 = 


625 



DATA ERROR AT LINE 20 
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CONDITIONAL TRANSFER— IF-THEN AND IF-GOTO 

If a program requires that two values be compared at some 
point, control of program execution may be directed to different 
procedures depending upon the result of the comparison. In com- 
puting, values are logically tested to see whether they are equal, 
greater than, less than another value, or possibly a combination of 
the three. This is accomplished by use of the relational operators 
discussed earlier. 

IF-THEN and IF-GOTO statements allow the programmer to 
test the relationship between two formulas (variables, numbers, or 
expressions). Providing the relationship described in the IF state- 
ment is true at the point it is tested, control will transfer to the 
line number specified, or perform the indicated operation. The 
statements are of the form : 

(line number) IF vl <relation> v2J r^Trp^ Ix or expression 

where vl and v2 represent variable names or expressions, x repre- 
sents a line number, and expression represents an operation to be 
performed. The use of either THEN or GOTO is acceptable. 

The following two examples are equivalent (the value of the 
variable A is changed or remains the same depending upon A's 
relation to B): 



100 IF A>B THEN 120 
110 A=AtB-l 
120 C=A/D 



100 IF A<=B THEN A=AtB-l 
110 C=A/D 



Subroutines 

GOSUB AND RETURN 

A subroutine is a section of code performing some operation 
that is required at more than one point in the program. Often a 
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complicated I/O operation for a volume of data, a mathematical 
evaluation which is too complex for a user-defined function, or any 
number of other processes may best be performed in a subroutine. 

Subroutines are generally placed physically at the end of a pro- 
gram, usually before DATA statements, if any, and always before 
the END statement. Two statements are used exclusively in 
BASIC to handle subroutines; these are the GOSUB and RETURN 
statements. 

A program begins execution and continues until it encounters a 
GOSUB statement of the form: 

(line number) GOSUB x 

where x represents the first line number of the subroutine. Control 
then transfers to that line. For example : 



50 GOSUP S00 



When program execution reaches line 50, control transfers to line 
200; the subroutine is processed until execution encounters a RE- 
TURN statement of the form : 

(line number) RETURN 

which causes control to return to the statement following the 
GOSUB statement. Before transferring to the subroutine, BASIC 
internally records the next statement to be processed after the 
GOSUB statement; thus the RETURN statement is a signal to 
transfer control to this statement. In this way, no matter how many 
different subroutines are called, or how many times they are used, 
BASIC always knows where to go next. 

The following program demonstrates a simple subroutine: 



31 



1 REM - THIS PROGRAM ILLUSTRATES GOSUB AND RETURN 
10 DEF FNA(X)=ABS(INT(X) ) 

20 INPUT A^B^rC 

30 GOSUB 100 

40 LET A=FNACA) 

50 LET B=FNA(B) 

60 LET C=FNA(C) 

70 PRINT 

80 GOSUB 100 

90 STOP 

100 REM - THIS SUBROUTINE PRINTS OUT THE SOLUTIONS 

110 REM - OF THE EQUATION: A(Xtg) + B(X) + C = 

120 PRINT "THE EQUATION IS "A'^+XtS + "B"*X + "C 

130 LET D=B*B-4*A*C 

140 IF D<>0 THEN 170 

150 PRINT "ONLY. ONE SOLUTION... X ="-B/C2*A) 

160 RETURN 

170 IF D<0 THEN 200. 

180 PRINT "TWO SOLUTIONS... X ="; 

185 PRINT (-B+SQRCD))/(2*A)"AND X =" C -B-SQR C D ) ) /C2*A) 

190 RETURN 

200 PRINT "IMAGINARY SOLUTIONS... X = C"; 

205 PRINT -B/C2*A)"j"SQRC-D)/C2*A)") AND ("; 

207 PRINT -B/(2*A)"^"-SQRC-D)/C2*A)")" 

2 10 RETURN 
90 END 



RUN 

?1 , .5:,-.5 

THE EQUATION IS 1 *Xt2 + .5 *X -+ -.5 

TWO SOLUTIONS... X = .5 a5JD X =-1 

THE EQUATION IS 1 *X»2 + *X + 1 

IMAGINARY SOLUTIONS... X = ( ^ 1 ) AND, (0^-1 ) 

READY. 

Line 100 begins the subroutine. There are several places in which 
control may return to the main program, depending upon a certain, 
condition being satisfied. The subroutine is executed frorii line 30 
and again from line 80. When control returns to line 90, the pro- 
gram encounters the STOP statement and execution is terminated. 
It is important to remember that subroutines should generally 
be kept distinct from the main program. The last statement in the 
main program should be a STOP or GOTO statement, and sub- 
routines are normally placed following this statement. 
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More than one subroutine may be used in a single program, in 
which case these can be placed one after another at the end of the 
program (in line number sequence). A useful practice is to assign 
distinctive line numbers to subroutines. For example, if the main 
program is numbered with line numbers up to 199, 200 and 300 
could be used as the first numbers of two subroutines. 

Nesting Subroutines 

Nesting of subroutines occurs when one subroutine calls an- 
other subroutine. If a RETURN statement is encountered during 
execution of a subroutine, control returns to the statement follow- 
ing the GOSUB which called it. From this point, it is possible to 
transfer to the beginning or any part of a subroutine, even back to 
the calling subroutine. Multiple entry points and RETURN state- 
ments make subroutines more versatile. 

The maximum level of GOSUB nesting is about thirty-three (33) 
levels, which should prove more than adequate for all normal uses. 
Exceeding this limit will result in the message: 



GOSUB ERROR AT LINE XXXX 



where XXXX represents the line number where the error occurred. 
An example of GOSUB nesting follows (execution has been stopped 
by typing a CTRL/C, as the program would otherwise continue in 
an infinite loop; see Stopping a Run.) 
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10 REM FACTORIAL PROGRAM USING GOSUB TO 

15 REM RECURSIVELY COMPUTE THE FACTORS 

40 INPUT N 

50 IF N>20 THEN 120 

60 X=l 

70 K=l 

80 GOSUB 200 

90 PRINT "FACTORIAL"N" ="X 

110 GO TO 40 

120 PRINT "MUST BE 20 OR LESS" 

130 GO TO 40 

200 X=X*K 

210 K=K+1 

220 IF K<=N THEN GOSUB 20.13 

230 RETURN 

2^0 END 



RUN 

?2 

FACTORIAL 2=2 

?4 

FACTORIAL 4 = 24 

?5 

FACTORIAL 5 =120 

STOP. 
READY. 

Functions 

BASIC performs several mathematical calculations for the pro- 
grammer, eliminating the need for tables of trig functions, square 
roots, and logarithms. These functions have a three letter call 
name, followed by an argument, x, which can be a number, vari- 
able, expression, or another function. Table 1 lists the func- 
tions available in 8K BASIC. Most are self-explanatory; those 
that are not and are provided in greater detail are marked with 
asterisks. 

Table 1 8K BASIC Functions 

Function Meaning 

SIN(x) Sine of x (x is expressed in radians) 

COS(x) Cosine of x (x is expressed in radians) 
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Table 1 8K BASIC Functions (Cont.) 



Function 


Meaning 


TAN(x) 


Tangent of x (x is expressed in radians) 


ATN(x) 


Arctangent of x (result is expressed in 
radians) 


EXP(x) 


e^ (6=2.718282) 


LOG(x) 


Natural log of x (logeX) 


*SGN(x) 


Sign of X — assign a value of +1 if x is posi- 
tive, if X is zero, or —1 if x is negative 


*INT(x) 


Integer value of x 


ABS(x) 


Absolute value of x ( x ) 


SOR(x) 


Square root of x (/x) 


*RND(x) 


Random number 


*TAB(x) 


Print next character at space x 


*GET(x) 


Get a character from input device 


*PUT(x) 


Put a character on output device 


*FNA(x) 


User-defined function 


*UUF(x) 


User-coded function (machine language 
code) 



SIGN FUNCTION— SGN(X) 

The sign function returns the value +1 if x is a positive value, 
if X is zero, and —1 if x is negative. For example, SGN(3.42)=1, 
SGN(-42)=-l, and SGN(23-23)=0. The following example 
in which X is assigned the sign of y illustrates the use of this 
function: 

25 X=SQRCAt2+2*BC)*SGN(A) 



INTEGER FUNCTION— INT(X) 

The integer function returns the value of the nearest integer not 
greater than x. For example, INT(34.67)=34. By specifying 
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INT(x+.5) the INT function can be used to round numbers to 
the nearest integer; thus, INT(34.67+.5)=35. INT can also be 
used to round numbers to any given decimal place by specifying: 

INT(x*10tD+.5)/10tD 

where D is the number of decimal places desired. The following 
program illustrates this function; execution has been stopped by 
typing a CTRL/C: 



10 REM - INT FUNCTION EXAMPLE 

20 PRINT "NUMBER TO BE ROUNDED"; 

30 INPUT A 

40 PRINT "NO. OF DECIMAL PLACES'.'; 

50 INPUT D 

60 LET B=INTCA*10TD+.5)/10tD 

70 PRINT "A ROUNDED = "B 

80 GO TO 20 

90 END 



RUN 

NUMBER TO BE R0UNDED755 .65342 

NO. OF DECIMAL PLACES72 

A ROUNDED = 55.65 

NUMBER TO BE R0UNDED778. 375 

NO. OF DECIMAL PLACES7-2 

A ROUNDED = 100 

NUMBER TO BE R0UNDED767 . 89 

NO. OF DECIMAL PLACES7-1 

A ROUNDED = 70 

NUMBER TO BE R0UNDED7 

STOP. 

READY. 



If the argument is a negative number, the value returned is the 
largest negative integer (rounded to the higher value) contained in 
the number. For example, INT(-23)=-23 but INT(-14.39)=-1 5. 

RANDOM NUMBER FUNCTION— RND(X) 

The random number function produces a random number be- 
tween and 1. The numbers are not reproducible, a fact the 
programmer should keep in mind when debugging or checking his 
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program. The argument x in the RND(x) function call can be any 
number, as that value is ignored. The following program illustrates 
the use of this function to generate a table of random numbers: 



10 REM - RANDOM 


NUMBER EXAMPLE 






2 5 PRINT "RANDOf 


I NUMBERS" 








30 FOR 1=1 TO 30 


1 








40 PRINT RNDC0), 










50 NEXT I 










60 END 










RUN 










RANDOM NUMBERS 










•9547609 


2890875 


. 1416765 


.2482717 


.2145417 


.05280478 


3859534 


.8404774 


.5692836 


.8514056 


.9848808 


2466345 


•61588 


.4755698 


.3104984 


.5828625 


7026891 


.9703719 


.4980298 


.2548316 


.04672124 


9868434 


•5005693 


.1218251 


.2258269 


.2585353 


5187701 


•7858024 


.04588368 


.2030 807 


READY. 











It is possible to generate random numbers over any range by 
using the following formula: 

(B-A)*RND(0)+A 

This produces a random number (n) in the range A<n<B. 

In order to obtain random integer digits in the range 0< = n<9, 
line 40 in the previous example is changed to read: 

4(5 PRINT INT(9*RNDC0 ) )^ 

When the program is run again, the results will look as follows: 



RANDOM 


NUMBERS 










8 




8 


3 








3 







1 





4 


8 




3 


1 


4 


6 


2 




2 





6 


5 


7 




6 


7 


7 


6 


2 







2 


8 


6 


READY. 













Notice that the range has changed to 0< = n<9. This is because 
the INT function returns the value of the nearest integer not greater 
than n. 
TAB FUNCTION 

The TAB function allows the user to position the printing of 
characters anywhere on the Teletype (or line printer) line. Print 
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positions can be thought of as being numbered from 1 to 72 
across the Teletype from left to right. (For printing devices with 
long lines, the number of positions may be as large as 255, but it 
is unlikely that more than 160 spaces will be required for most 
printers.) The form of this function is: 

TAB (n) 

where the argument n represents the position (from 1 to the total 
number of spaces available) in which the next character will be 
typed. 

Each time the TAB function is used, positions are counted from 
the beginning of the line, not from the current position of the 
printing head. For example, TAB(3) causes the character to be 
printed at position 3; the following statement: 



10 PRINT "X =";TAB(3);"/";3. 14159 

will print the slash on top of the equal sign, as shown below: 

X ?? 3. 14159 

READY. 



The following is an example of the sort of graph that can be 
drawn with BASIC using the TAB function: 
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30 FOR X=0 TO 15 STEP .5 

40 PRINT TABC30 + 15*SINCX)*EXPC-. 1*X) );■'*" 

50 NEXT X 

60 END 



RUN 



* 



* 



*' 



* 



* 
* 



* 



* 



* 

* 

* 

* 

* 
* 
* 
* 
* 
* 

* 
* 



* 

* 



READY. 

PUT AND GET FUNCTIONS 

8K BASIC provides two additional functions, PUT and GET, 
to increase input/output flexibility. Using these statements, the 
programmer can "PUT" an ASCII character on the current output 
device, or "GET" a character from the current input device. GET 
is of the form: 

GET (x) 
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where the argument x is a dummy variable which may be any 
value. GET (x) will be assigned the decimal value of the ASCII 
code of the next character input on the current input device. 
For example, if the following statement appears in a program: 

10 LET L=GET(X) 

and the next character input is an M, the variable L will be as- 
signed the value 77(](,). 
PUT is of the form : 

PUT (X) 

where the argument x represents the decimal value of the ASCII 
code of the character to be output. For example, the statement: 



15 L=PUT(GETCV) ) 



will wait for a character to be read from the current input device 
and then print it on the current output device. A statement such as: 



30 PRINT PUT(Q) 



will print the character typed as well as the decimal value of the 
ASCII code for that character. To get 10 characters from a paper 
tape and print them on the line printer, a suitable program is: 



100 LPT 

110 PTR 

120 FOR A=l TO 10 

130 LET B=PUTCGET(0)) 

140 NEXT A 

150 END 

The GET(O) will contain the most recently obtained character 
which is then "PUT" to the line printer. The user should be careful 
to position the tape on the first character to be input. Otherwise 
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blank tape may be entered, resulting in spaces being printed as 
output. 

The PUT statement can also be used to format output. For ex- 
ample, to print a trig table on the line printer with a heading and 
50 data lines per page, the line feed character (12(]„)) can be 
"PUT" to the printer as follows: 



100 LPT 

1 10 GOSUB 1000 

120 GOSUB 500 

125 REM - SET UP TRIG TABLE 

130 FOR J=0 TO 360 STEP .5 

140 LET L=L+1 

1 50 LET B=J/180*3. 14 

160 PRINT J,SIN(B)jCOS(B),TANCB)^ATN(B) 

165 REM - PRINT 50 ENTRIES IN TABLE 

170 IF L=50 THEN GOSUB 500 

180 NEXT J 

190 GOSUB 1000 

200 GOSUB 1000 

210 STOP 

500 REM PRINT HEADER 

505 GOSUB 1000 

510 PRINT 

520 PRINT 

5 30 PRINT "ANGLE'S "SINE'S "COSINE" ^"TANGENT", "ARCTANGENT" 

540 PRINT 

5 50 RETURN 

1000 REM PRINT FORM FEEDS TO ADVANCE PAPER 

100 5 X=PUTC12) 

1010 L=0 

10 20 RETURN 

10 30 END 



The beginning of the line printer output from this program follows. 
The first page of the table continues through an angle of 24.5 de- 
grees: then the header and the next 50 entries are printed on the 
next page, and so on until the values have been output for all an- 
gles through 360 degrees (in steps of .5). 
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NGUE 


SINE 


COSI^t 


TANGtM 


iKCTANGENT 


2 





1 








.5 


8.7a2ll2E-e3 


.999962 


8,7224446-03 


8.722?l01E-03 


1 


.ai7««356 


.9998479 


.01744631 


.01744268 


1.5 


.02616368 


.9996'577 


.02617264 


,0261607 


S 


.PI3t88181 


,9993915 


.03490305 


,0348/474 


2.5 


.04359729 


.999?492 


.04363878 


,0435835 


3 


.052309ab 


.9986309 


.05238116 


,05226564 


3.5 


.06101763 


.9981367 


.06113154 


.06097986 


<t 


,06972117 


.9975665 


.06989125 


.06966486 


«.5 


,078U19« 


.9969205 


.07066164 


.07833935 


5 


.08711167 


.9961986 


.(•8744408 


.08700204 


5.5 


.09579731 


.9954009 


.09623993 


.09565166 


6 


.10a«757 


.9945274 


.1050506 


.1042869 


6.5 


.Il3lfl61 


.9935784 


.1138774 


.1129067 


7 


.1218079 


.9925537 


.1227217 


,1215095 


7.5 


.1304604 


.9914535 


.131585 


.1300944 



24 
24.5 



.4065426 
.414496 



,9136318 

.9100512 



.4449743 
.4554645 



.396494 
.4038923 



The GET statement cannot be used to get binary characters. 

FNA FUNCTION 

In some programs it may be necessary to execute the same 
mathematical formula in several different places. 8K BASIC al- 
lows the programmer to define his own function in the BASIC 
language and then call this function in the same manner as the 
square root or a trig function is called. Only one such user- 
defined function may be included per program. The function is 
defined once at the beginning of the program before its first use, 
and consists of a DEF statement in combination with a three- 
letter function name, the first two letters of which must be FN. 
The format of the defining statement is as follows: 

(line number) DEF FNA(x)=formula(x) 

A may be any letter. The argument (x) has no significance; it is 
strictly a dummy variable, but must be the same on each side of 
the equal sign. The function itself can be defined in terms of num- 
bers, several variables, other functions, or mathematical expres- 
sions. For example : 

10 DEF FNACX)=XT2+3*X+4 



or 



20 DEF FWC.(X)=SQRCX+4) + l 
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The function: 

10 DEF FNA(S)=St2 

will cause the later statement: 

20 LET R=FNA(4)+1 

to be evaluated as R=17. 

The user-defined function can be a function of only one vari- 
able. 

USER-DEFINED FUNCTION -UUF 

A special user-coded function is available for the programmer 
who wishes to define an additional 8K BASIC function perma- 
nently or one which cannot be defined with one BASIC expres- 
sion, as an FN A function must be. The UUF function routine is 
coded in PDP-8 assembly language, assembled with one of the 
available assemblers, and loaded as an overlay to 8K BASIC. 
While 8K BASIC is running, the special function can be used in 
a fashion analogous to the regular 8K BASIC functions. The user- 
coded function, if present, is referenced in the BASIC program as: 

UUF(n) 

where n can be any BASIC expression. 

The programmer who defines the UUF function should be familiar 
with the information on assembly language programming which 
is in Introduction to Programming 1972 chapters 1-5, and the 
material on the Floating Point Package, chapter 8. He should also 
be familiar with the information on the assembler he intends to 
use by reading the appropriate manual. 

Coding Formats 

8K BASIC uses a floating point package which has been modi- 
fied to allow 27-bit, sign-magnitude mantissa floating point. In 
sign-magnitude convention the sign bit, rather than the mantissa, 
expresses the sign of the entire number. This format is described 
more fully below. All coding must be compatible with this format. 
The floating point instructions are discussed later in this manual. 
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Upon entrance to the UUF subroutine the value of the argu- 
ment is in the FAC (floating accumulator). The value which is 
calculated for the function must be in the FAC in normalized 
form on exit. 

When floating point statements are to be included in the pro- 
gram, the start of a series of floating point instructions must be 
indicated by the instruction: 

FENTER 

immediately before the first floating point instructions. Each series 
of floating point instructions is terminated by the instruction: 

FEXIT 

immediately after the last floating point statement. There can be 
as many sections of floating point code as necessary in the pro- 
gram, but each must be delimited in this manner. 

Floating-Point Format 

The floating-point format used by 8K BASIC allocates three 
storage words to each number as follows: 



WORD 1 











WORD 2 











































WORC 


3 



































EXPONENT 
-SIGN BIT 



MANTISSA 



The FAC occupies five locations on page 0: 

Location Name Location Number Contents 



ACS 


0024 


Sign 


ACE 


0025 


Exponent (2008 biased) 


ACl 


0020 


High-order word 


AC2 


0017 


Mid-order word 


AC3 


0016 


Low-order word 



The constant 2008 is added to the exponent to make its range 
to 377. 

All of BASIC'S mathematical operations are in floating point 
format. Therefore, if any temporary storage locations are to be 
used, they will require three words, for example: 
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UTEMP,0J0;0 

Addressing 

The floating point package uses only relative addressing. There- 
fore all statements that require an address specification must in- 
clude one of the operators FWD or BKWD plus a reference to 
the current location. Such a reference is generally of the form: 

instruction+F WD +Lf EMP-' 

instruction+BKWD+pLTEMP 

where LTEMP is the first of the three locations containing the 
number to be used. The operator FWD is used when the address 
of the location to be referenced is numerically greater than the ad- 
dress of the instruction; BKWD is used when the address of the 
location to be referenced is numerically less than the address of the 
instruction. The floating point interpreter uses the number of 
locations between the instruction and the data to locate the data. 
The location referenced must be within ZOOg locations of the 
instruction. 

The following two examples cause the contents of LTEMP to 
be added to the contents of the FAC, and the result left in the 
FAC: 

00200 4210 FAD+FWD+LTEyiP-. 



00210 0000 LTEMP 

00211 0000 

00212 0000 

or 



00200 


0000 


LTEMP 





00201 


0000 







00202 

■ 


0000 







• 

00210 


4610 




F 



FAD+BK-v/D-f. -LTEMP 

Floating-Point Instruction Set 

The legal instructions in the modified Floating-Point Package 
used by 8K BASIC are explained in Table 2 : 
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Table 2 Floating-Point Instructions 



Instruction 



Value 



Meaning 



FST 



2000 



FLD 


3000 


FAD 


4000 


FSB 


5000 


FMP 


6000 


FDV 


7000 


FJMP 


1000 


FENTER 


4435 


FEXIT 


0000 


FWD 


0200 


BKWD 


0600 


FSNE 


0040 


FSEQ 


0050 


FSGE 


0100 


FSLT 


0110 


FSGT 


0140 


FSLE 


0150 



Store the contents of the floating accu- 
mulator (FAC). The contents of the 
FAC are not changed. 

Load FAC with contents of relative 
address. 

Add contents of relative address to 
FAC. 

Subtract contents of relative address 
from FAC. 

Multiply the contents of the FAC by 
the contents of the relative address. 

Divide FAC by contents of relative 
address. 

Floating-point jump to relative ad- 
dress. 

Start floating-point code. 

Exit floating-point code. Return to 
PDP-8 code. 

Access a relative location in the for- 
ward direction. 

Access a relative location in the back- 
ward direction. 

Skip if FAC ^ 

Skip if FAC = 

Skip if FAC > 

Skip if FAC < 

Skip if FAC > 

Skip if FAC ^ 
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The following list contains floating-point instructions for in- 
direct relative addressing. The indirect addressing is similar to the 
I construction used in regular PDP-8 assembly language coding. 



Floating-Point Instructions (Indirect Relative Addressing) 



Instruction 


Value 


Operation 


FSTI 


2400 


Store 


FLDI 


3400 


Load 


FADI 


4400 


Add 


FSBI 


5400 


Subtract 


FMPI 


6400 


Multiply 


FDVI 


7400 


Divide 


FJMPI 


1400 


Jump 



Writing the Program 

UUF must be made a defined function for 8K BASIC. This is 
done by inserting the starting address of the UUF subroutine in 
BASIC'S table of subroutine addresses. The subroutine address 
must be placed in location 1156 of field 0. If UUF is the first 
location of the subroutine, the following code is sufficient: 



= 1156 



UUF 



The UUF subroutine may be placed in the area of core nor- 
mally occupied by the RIM and BIN loaders, location 7600-7777 
of field 0. To do this, the loaders are placed in field 1 . The loading 
instructions for UUF are contained in the section called Loading 
and Operating Procedures. 

If mass storage devices are in use, they may destroy the data 
break locations on the last page of field 0. If TC08 DECtape 
is used, locations 7752 and 7753 must be reserved. If an RF08 
or DF32 disk is used, locations 7750 and 7751 must be reserved. 

There are three subroutines in 8K BASIC which are available 
to maintain a floating-point format acceptable to the modified 
floating-point package in 8K BASIC. These subroutines are de- 
scribed below. The listing of 8K BASIC is available from the 
Software Distribution Center for the programmer who wishes to 
call other subroutines in the compiler. 
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BEGFIX 



ANORM 



FIX 



If a value is to be returned to the FAC as a result 
of the UUF function, that value must be in nor- 
malized floating point format in the FAC on exit 
from the subroutine. If floating point arithmetic is 
used throughout the user function, then the value 
in the FAC is in normalized floating point format 
and need not be converted. If fixed point arithmetic 
(single word) is used anywhere in the function, 
then the subroutine BEGFIX must be called to 
initialize the FAC before the fixed point number 
is placed in the FAC and subsequently converted 
to floating point (see ANORM below). After 
BEGFIX is called, the 12-bit number is stored by 
a simple DCA AC3 instruction and then ANORM 
is called. BEGFIX is located at 3762 and is called 
with a IMS instruction; on return from BEGFIX 
the AC is clear. 

If a fixed point value is placed in the FAC, 
ANORM may be called to normalize the FAC. 
After the fixed point value has been placed in AC3, 
ANORM may be called to supply the acceptable 
values for ACE, ACS, ACl, and AC2. ANORM is 
located at 4600; on return, the AC is clear. 

When the value in the FAC must be made into an 
integer, FIX may be called to perfom that job. The 
12-bit value of the FAC is left in AC3 and that 
value plus 1 is left in the AC. FIX is located at 

4744. ■ ■ 



Examples 

The following examples illustrate the method of writing and 
calling a UUF routine. 



Example 1: 

This UUF routine is an example of a fixed point calculation. 
The value of UUF(X) is 3X+2. 
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/UUFC>0»3X*2 PAI.B-VT P4GE 1 

/UUFtX)»3X*2 

/ENTER WITH X IN FAC 

/EXIT WITH UUFCXJ IN FAC 

/USE FIXED POINT ARITHMETIC - | - 

0016 ACS'ld 

amu Fix»«7«« 

3762 QEGFIX03762 
<l6e? ANORM«a600 

0000 FIELD 



/MAKE Si' A 12-BIT INTEGER. 
/MULTIPLY X BY 3 





1156 


• 1156 






0115b 


7600 
7600 


*7600 


UUF 




07600 


0000 


UUF, 







07b01 


<1623 




JMS 


I IFIX 


07b02 


7200 




CLA 




07«>05 


3222 




OCA 


ANSWER 


fl7b0a 


«215 




JMS 


LOOP 


07605 


«215 




JMS 


LOOP 


07606 


U215 




JMS 


LOOP 


0760T 


462<i 




JMS 


I IBEG 


07610 


7326 




CLA 


r.LL CMi 


07611 


1222 




TAD 


ANSWER 


07612 


3016 




OCA 


AC3 


07613 


4625 




JMS 


I INOR 


076ia 


5600 




JMP 


I UUF 


07613 


0000 


LOOP, 







07616 


1222 




TAD 


ANSNER 


0761T 


1016 




TAD 


AC3 


07620 


3222 




OCA 


ANSWER 


07621 


5615 




JMP 


I LOOP 


07622 


000(3 


ANSWER, 







07623 


<i7a4 


IFIX, 


FIX 




0762« 


3762 


IBEG, 


BEGFIX 


07625 


4600 


INORM, 


ANORM 



/KETCH 3X 

/RETURN 3X*2 TO FAC 

/NORMALIZE 

/--RETURN-- 



/ADO ACS TO ACCUMULATED SUM 
/--RETURN-- 



The following BASIC program calls UUF(X) to print X and 
3X+2 for a number of values of X: 



READY. 






100 


FOR X=-3 


TO 


3 STEP 


1 10 


PRINJT X, 


UUF(X) 


120 


MEXT X 






130 


E>4D 
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RUM 




-3 


1 1 


-2.5 


1 1 


-2 


3 


-1.5 


8 


- 1 


5 


-.5 


5 


■0 


2 


.5 


2 


1 


5 


1. 5 


5 


2 


3 


2.5 


8 


3 


1 1 


READY. 





Example 2: 

This UUF routine is an example of a floating point calculation. 
Like example 1, this routine returns a value of UUF(X)=3X+2. 

/UUFtx)»3X*2 P*LB-VT 5/35/72 P*GE 1 

/UUF(X)s3X*a 

/ENTER WITH X IN FAC 

/EXIT WITH UUFCX) IN FAC 

/USE FLOATING POINT ARITHMETIC 





443S 


FENTER" 


4435 




2000 


FSTa2OB0 




0200 


FWD«2O0 






0000 


FEXIT»0000 




6000 


FMPa6005i) 




4000 


FAD«4000 




0016 


AC3«16 






3762 


BEGFIX* 


3762 




4600 


AN0RMK4 


6er0 




0000 


FIELD 






1156 


*1156 




aiisfe 


7600 




UUF 




7600 


• 7600 




0T600 


0000 


UUF, 


, , /' .,- ' 


Zlhlfl 


4435 




FENTER -^■^•-■■■' f-'-^^ ■•■■';! ^■■'■•■"• 


07*02 


2216 




FST*FWO*X-, /STORE X FROM FAC INTO LOC, X 


07603 


0000 




FEXIT J'.:-" PP.:<r'*.i 


07604 


7325 




CLA CLL CML lAC RAL /SET AC«3 


07605 


4224 




JMS FLOAT /GET A FLOATING POINT 3 IN THE FAC 


07606 


4435 




FENTER .4t."<-l '■ ■',.>«:■ 


07607 


6211 




FMp*FWD*X-, /MULTIPLY X BY 3 


07610 


2210 




FST+FWD*X«, /SAVE IT FOR LATER 


07611 


0000 




FEXIT 


07612 


7326 




CLA CLL CML RTL /GET A 2 IN THE FAC 


07613 


4224 




JMS FLOAT 
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07bia liliiS FENTER 

Ci7bl5 4203 FAD*FWD*X-. /ADD 2 TO 3X 

07blb 0000 FEXIT /LEAVE RESULT IN FAC 

07fel7 5600 JMP I UUF /--RETURN" 



07620 0000 X, 0>0>0 

07fe?l 0000 

07622 0000 

07623 0000 TEMP, 

0762a 0000 FLOAT, 

/STORE CONSTANT TEMPORARILY 
/PREPARE FAC TO RECEIVE VALUE 

/PUT CONSTANT IN FAC 
/NORMALIZE IT 
/--RETURN-- 



07625 


3223 




OCA TEMP 


07626 


4633 




JMS I IBEG 


07627 


1223 




TAO TEMP 


07630 


3016 




OCA AC3 


07631 


4634 




JMS 1 INORM 


07632 


5624 




JMP I FLOAT 


07633 


3762 


IBEG, 


BEGFIX 


07654 


4600 


INOBM, 


ANORM 


/UUFOO 


»3X*2 







PAL8-V7 5/25/72 PAGE 1-1 



The following BASIC program calls UUF(X) to print X and 
3X4-2 for a number of values of X. The results differ from those 
in example 1 because of the capability of floating point arithmetic 
to handle fractions. 

READY. 



100 


FOR X=-3 


TO 3 STEP 


1 10 


PRINT X> 


UUF(X) 


120 


NJEKT X 




130 


EiVD 




RUM 






-3 




-7 


-2.5 




-5.5 


-2 




-4 


-1.5 




-2.5 


-1 




- 1 


-.5 




.5 







2 


. 5 




3.5 


1 




5 


1. 5 




6.5 


2 




8 


2.5 




9.5 


3 




11 



READY . 
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Example 3 : 

This UUF routine computes the square of the argument in float- 
ing point format. 



/UUF(X3 *t'i 



PALB"Vr 5/25/72 PAGE I 



/UUFCX).X*2 

/ENTER WITH X IN F*C 

/EXIT WITH UUF(X) IN FAC 

/USE FLOATING POINT ARITHMETIC 





4435 


FENTER" 


4435 






2000 


F$Ti2000 






0200 


FWD»200 








6000 


FHPi(>00e 






0000 


FEXIT«0000 






0000 


FIELD 








1156 


•1156 






0ns(> 


7700 
7700 


• 7700 


UUF 




07700 


0000 


UUF, 







07701 


4435 




FENTER 




07702 


2204 




FST*FWO*X-. 


/STORE ARGUMENT IN X 


07703 


6203 




FMP^FWD^X", 


/MULTIPLY FAC BY LOC, 


07704 


0000 




FEXIT 


/RESULT IS IN FAC 


07705 


5700 




JMP I UUF 


/••-RETURN— 


07706 


0000 


X, 


0;0;0 




07707 


0000 








0771P 


0000 









X (X*X} 



The following BASIC program uses the above UUF to produce 
a table of squares and square roots: 



READY . 



100 


FOR A=l 


TO 


10 STEP 1 


110 


PRIiMT A, 


UUF(A), SQR(A) 


120 


MEXT A 






130 


EiMD 






RUM 








1 






1 


2 






A 


3 






9 


A 






16 


5 






25 


6 






36 


7 






49 


8 






64 


9 






8 1 


10 






100 



1 

1. 414214 

1.732051 

2 

2.236068 

2.449 49 

2. 645751 

2.8 2(3 427 

3 

3. 162278 



READY. 
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EDITING AND CONTROL COMMANDS 

Errors made while typing at the console keyboard are easily cor- 
rected. BASIC provides special commands to facilitate the editing 
procedure. 

Erasing Characters and Lines 

SHIFT/O, RUBOUTS, NO RUBOUTS 

There are two methods available for erasing a character or 
series of characters one at a time. Typing a SHIFT/0 causes the 
deletion of the last character typed, and echoes as a back arrow 
( «-) on the Teletype. One character is deleted each time the key 

is typed. 

The RUBOUT key may also be used for deletion of characters 
one at a time providing the command: 

RUBOUTS 

has been typed on the keyboard before the editing is done. This 
command enables the RUBOUT key to be used. If the user has 
neglected to type this command, he may not use the RUBOUT key. 
A later command of: 

NO RUBOUTS 

disables the key for use. (This is desirable when programs created 
on other systems which use rubouts as null characters are to be 
read into core. See the section entitled PTP AND LPT under 
Listing and Punching a Program.) For example: 

10 LEB-T A=10*B 

The user types a B instead of T and immediately notices the mis- 
take. He may type SHIFT/O (or RUBOUT key, if enabled) once 
to delete the B, and as many times more as characters, including 
spaces, are to be deleted. After the correction is made, he may 
continue typing the line. The typed Hne enters the computer only 
when the RETURN key is pressed. Before that time any number 
of corrections can be made to the line. 
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20 DEN F— — F FNA(X>Y)=Xt2 + 3*Y 

When the RETURN key is typed, the line is input as: 

20 DEF FNACX,Y)=Xt2+3*Y 

Notice that spaces, as well as printing characters, may be erased. 
The user may erase an entire line (provided the RETURN key 
has not been typed) by typing the ALTMODE key (ESCAPE 
key on some keyboards). BASIC echos back: 

DELETED 

at the end of the line to indicate that the line has been removed. 
The user continues as though it were a new line. If the RETURN 
key has already been typed, the user may still correct the line by 
simply typing the line number and retyping the line correctly. He 
may delete the line by typing the RETURN key immediately after 
the line number, thus removing both the line number and line 
from his program. 

If the line number of a line not needing correction is accidentally 
typed, the SHIFT/O or RUBOUT key may be used to delete the 
number(s); the user may then type in the correct numbers. As- 
sume the line: 

10 IF A>5 GO TO 230 

is correct. The programmer intends to insert a line 15, but in- 
stead types: 

10 LET 

He notices the mistake and makes the correction as follows: 

10 LET-----5 LET X=X-3 

Line 10 remains unchanged, and line 15 is entered. 

Following an attempt to run a program, error messages may be 
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output on the Teletype indicating illegal characters or formats, or 
other user errors in the program. Most errors can be corrected by 
typing the line number(s) and the correction(s) and then re- 
running the program. As many changes or corrections as desired 
may be made before runs. 



Listing and Punching a Program 

LIST 

An indirect program or data can be listed on the active output 
device by typing the command: 

LIST 

followed by the RETURN key. The entire program (or data) will 
be listed. 

A part of a program may be listed by typing LIST followed by 

a line number. This causes that hne and all following lines in the 

program to be Hsted. For example : 

LIST 100 

will list line 100 and all remaining lines in the program. 

FTP AND LPT 

The LIST command may be issued in conjunction with the LPT 
or PTP commands as follows : 

PTP LPT 

LIST LIST 

This will list the current program on the high-speed paper tape 
punch or line printer respectively. Control is reset to the Teletype 
after the listing is completed. 

Occasionally, when 8K BASIC is reading in a program from the 
low-speed reader, it may drop a character since the Teletype 
buffer cannot accept input at a prolonged fast rate. To eliminate 
this possibility, use LIST as follows when punching out paper 
tapes: 
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PTP 
LIST* 



This inserts null characters after carriage returns and is recom- 
mended when punching any tapes that will later be read in from 
the low-speed paper tape reader. (8K BASIC does not use rub- 
outs as null characters. ) 

Reading a Program 

PTR 

The PTR command can be issued to read in a paper tape from 
the high-speed reader. This mode is particularly useful for reading 
in a user-coded "load and go" BASIC program. The tape should 
be positioned in the reader before the command is issued; if not, or 
if the reader runs out of tape, BASIC prints: 

TTY 

on the Teletype to indicate that there is no more input from the 
high-speed reader, and that it is waiting for input from the Tele- 
type. 

The user may cause tapes to be read in from the low-speed 
reader by simply placing the tape over the sprocket wheel and 
setting the reader to START. 

Running a Program 
RUN 

After a BASIC program has been typed and is in core, it is 
ready to be run. This is accomplished by simply typing the com- 
mand: 



RUM 



followed by the RETURN key. The program will begin execution. 
If errors are encountered, appropriate error messages will be typed 
on the keyboard; otherwise, the program will run to completion, 
printing whatever output was requested. When the END state- 
ment is reached, BASIC stops execution and prints: 

READY. 
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PTP AND LPT 

Either the high-speed paper tape punch or LP08 line printer, if 
available, can be used in conjunction with the RUN command. 
After the command is issued, all output during program execution 
is diverted from the Teletype to the specified. device. The com- 
mand sequence is: 



PTP LPT 

RUN RUN 



This procedure eliminates the need to insert the PTP (or LPT) 
statement within the program. Output returns to the Teletype 
after execution. 



Stopping a Run 

CTRL/C 

To stop a program during execution or to return to BASIC at 
any time, type a CTRL/C (accomplished by typing the CTRL 
key and the C simultaneously). This causes the current operation 
to be aborted immediately, and the message: 

STOP. 
READY. 

to be printed indicating that an 8K BASIC command can now be 
issued. 

CTRL/0 

The command CTRL/O (caused by typing the CTRL and O 
keys down simultaneously) is used to stop output temporarily. The 
program will continue to execute but output will not be printed on 
any output device unless an error occurs or unless BASIC is 
waiting for a command or for data from an input statement. In the 
latter case, the Teletype is the expected input device. This feature 
is particularly useful for programs that print lengthy introductions 
and then request a user-specified parameter. Typing CTRL/O 
after the program is started will cause BASIC to bypass printing 
the introduction and wait until the parameter is specified, thereby 
saving the time required to print the message. A second CTRL/O 
will resume output. 
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NOTE 

For most programs that do not wait for 
input from the Teletype, processing of the 
program after an initial CTRL/O will be 
completed before a second CTRL/O can be 
typed. Thus, it is very possible for no output 
to be printed rather than the anticipated 
partial output. 



Erasing a Program in Core 
SCR 

The command: 

SCRATCH 

or 

SCR 



is provided to allow the programmer to clear his storage area, 
deleting any commands, or a program which may have been 
previously entered, and leaving a clean area in which to work. If 
the storage area is not cleared before entering a new program, 
lines from previous programs may be executed along with the 
new program, causing errors or misinformation. The SCRATCH 
command eliminates all old statements and numbers and should 
be used before any tapes are read into core, or new programs 
created. 

LOADING AND OPERATING PROCEDURES 
BASIC Compiler 

The following procedure may be used to load in the 8K BASIC 
binary tape. 

1. Toggle the RIM Loader into field and, using the appro- 
priate reader, read the Binary Loader into field 0. (Refer 
to Appendix A for details.) 8K BASIC will not use loca- 
tions 7600 to 7777, thereby preserving the Binary Loader if 
it is present. 

2. Place the 8K BASIC binary tape in the appropriate reader; 
set switches 6-8 = 0, and 9-11 =0; press EXTD ADDRess 
LOAD. 

3. Set the Switch Register = 7777 and press ADDRess LOAD. 
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4. If using high-speed reader, set the Switch Register = 
3777 and press CLEAR and CONTinue; otherwise, sim- 
ply press CLEAR and CONTinue. 

5. After the tape has read in, set the Svv^tch Register = 1000. 

6. Press ADDRess LOAD, and CLEAR and CONTinue. 
BASIC responds by typing READY. 

7. BASIC programs on paper tapes may be read in using the 
PTR command explained earlier, or created on-line. 

User- Defined Function 

The following procedure may be used to load in a user-defined 
function. 

1 . Load the Binary Loader into field 1 . 

2. Load BASIC into field 0. 

3. Load the user-function (binary paper tape overlay) into 
field O.^^^Uk ^^^i -^ f ■■'. t~ .^ . 

4. Set Switch Register = 1000; press ADDRess LOAD and 
START. '^ a'j^' :-''.■ '^f''"' ^' 



Note that the Binary Loader is destroyed. To reload BASIC, 
steps 1 through 6 must be repeated. 
8K BASIC ERROR MESSAGES 

The computer checks all commands before executing them. If 
for some reason it cannot execute the command, it indicates this 
by typing one of the error messages. The number of the line in 
which the error was found is also typed out. The form is: 

ERROR MESSAGE AT LINE XXXX 
Tables lists the errors 8K BASIC checks for and reports 
before execution: 

Table 3 8K BASIC Error Messages 

Message Meaning 

ARGUMENT ERROR A function has been given an illegal argument; 

for example: 

SQR(-1 ) 

DATA ERROR There are no more items in the data list. 

FOR ERROR FOR loops are nested too deeply. 
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FUNCTION ERROR 

GOSUB ERROR 
LINE NO ERROR 

NEXT ERROR 

RETURN ERROR 

SUBSCRIPT ERROR 

SYNTAX ERROR 



TOO-BIG ERROR 



The user has attempted to call a function which 
has not been defined. 

Subroutines are nested too deeply. 

A GOTO, GOSUB, or IF references a non- 
existent line. 

FOR and NEXT statements are not properly 
paired. 

RETURN statement issued when not under 
control of a GOSUB. 

A subscript has been used which is outside 
the bounds defined in the DIM statement. 

The command does not correspond to the 
language syntax. Common examples of syntax 
errors are misspelled commands, unmatched 
parentheses, and other typographical errors. 
Reference to an undefined UUF will also pro- 
duce this diagnostic. 

The combination of program size and number 
of variables exceeds the capacity of the com- 
puter. Reducing one or the other may help. 
If the program has Undergone extensive re- 
vision, punching it out, typing SCRATCH 
and reloading should be tried. 



The following programming errors are not reported by 8K 
BASIC, but instead are used in the computation as specified. They 
are included here for the programmer's reference. 

1. Attempting to use a number in a computation which is too 
large for BASIC to handle will produce a result which is mean- 
ingless. 

2 . Attempting to use a number in a computation which is too 
small for BASIC to handle will result in the value zero being used 
instead. 

3. Attempting to divide by zero will produce a result which is 
meaningless. 
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BASIC SYMBOL TABLE 

Table 4 lists 8K BASIC'S symbols and their values. This 
information is useful when writing user-coded (machine lan- 
guage) functions. 

Table 4 8K BASIC Symbol Table 

A3CDEP' 1756 BARROW 2666 CT3 0014 EPTR 0096 

A3DGET £'006 BCDETG 1757 CVTLOO 5024 ERROR 4142 

A30P 0325 BCKWDS 4502 DATAER 1667 EVAL 1004 

A3S 6425 BEGFIX 3762 DBAQ 7513 EVALGO 1007 

ACl 2020 SIDLE 6713 DBBAD 7532 EXECUT 0213 

AC2 0017 BKWD 0603 DBCOT 7420 EXIT 2402 

AC3 0016 BREAK 6522 DBISRT 7547 EXP 6000 

ACCEPT 7473 BSKIP 2730 DBLH 7526 EXPGOO 5242 

A"E 0025 BUSY 6737 DBPUT 7596 EXPLON 5764 

ACN 4417 CARRtT 2700 DDLAST 7512 EXPOK 5265 

ACQUNT 0022 CCINTK 7465 DECEXP 0043 PAD 4000 

ACS 0024 CCXRA 7342 DECFRA 3366 FAOEXT 1314 

ADAl 0025 CDEVCO 0000 DEEPER 0526 FADI 4400 

A'DA2 0026 CDINP 7445 DEP 1576 FaTNAX 6273 

A3A3 P027 CHECKW 2346 DELAY 7463 FaTNC 6337 

ADACPT 0007 CHKFIT 6400 DELETE 6501 FATNCI 6304 

ADB 7477 CLAB 6133 DELOUT 0142 FATNC2 6307 

ADC 7477 CLBA 6136 DEVCOM 7175 FATNC3 6312 

A3CC0R 0064 CLC 7477 DEVCON 7176 FATNC4 6315 

AOCL 6530 CLCA 6137 DICD 6051 FATNC5 6320 

A'JCUNT 0010 CLEAR 7432 DIGIN 3224 rATNC6 6323 

AQCX 0012 CLEARV 2462 DIGIT 3204 FATNC7 6326 

AQURES 0067 CLEN 6134 DIGlUP 6557 FATNC8 6331 

AOLE 6536 ClKSTS 0003 DILC 6050 FATNC9 6334 

ADl^ 6531 CLOCKI 0175 DILE 6056 FATNCH 6342 

ADRB 6533 CLOE 6132 OILX 6093 FATNCJ 6345 

ADRS 6537 CLRCNT 0363 OILY 6054 FaTNSX 6272 

ADSE 6535 CLS 7477 DIM 6472 FaTNT 6276 

ADSK 6534 CLSA 6135 OIMFLA 0034 FATNTT 6301 

ADST 6532 CLSK 6131 DINP 7511 FCNTLC 6665 

A5ET 0301 ClTEMP 0011 DIRE 6057 FCNTLO 6703 

Ali 4654 CLZE 6130 DISAUT 0015 FDIGIT 3360 

ALGNLP 4466 CNCLP 0143 DISB 0136 FOV 7000 

ALL3 3146 CNTLCF 6700 DISO 6092 TDVI 7400 

ALLOC 1461 CNTLCR 6670 DIVLP 4705 FENTER 4435 

AuTMOD 2663 CNTLO 0133 DIVXTE 3344 FEXIT 0000 

AMaTCH 6506 COOElO 0004 OIXY 6055 FEXPCl 6072 

ANORM 4600 COLUMN 0126 OLAST 75il FEXPC2 6075 

APJT 0263 COMMON 3403 DOAD 1^362 FEXPC3 6100 

APJTI 0023 COMPaR 2136 DOADLP 0366 FEXPC4 6103 

APUT2 0024 CONST 1367 DOITNO 1247 FEXPC5 6106 

A=ii 4402 COS 5616 DOTZER 7371 FEXPC6 6111 

A=^GFRR 7363 COWT 7326 DPPLAG 3365 PEXPF 6067 

ARRLOC 0003 COWTFP 7343 DQINTX 31?0 FEXPI 6061 

ATEMP 0323 COWTlP 7331 DSCREW 0375 FEXPU 6064 

ATEMP2 0324 COWTO 7343 DVLOOP 5245 FINDIT 0597 

ATlINE 6451 COWTW 7344 EDIT 2405 FINOLU 0545 

ATN 6200 CRINTX 3076 END 2947 PiX 4744 

ATNBIG 6265 CRLF 6531 ENOLIN 7643 FiXEXI 4773 

AfJLOi^ 6220 CRLFPR 3743 ENDNUM 3331 TlXITU 5200 

ATNNOT 6237 CTl 0016 ENDPDL 7704 FIXLIN 2113 

AJTEMP 0063 CT2 0015 EOFAD 4526 FIXLUP 4790 
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FIXUP 


5146 


FSB 


5000 


GPTP 


0060 


INTOU 


6765 


FJMP 


1000 


FSBI 


5400 


GR8 


7224 


INWDTM 


4064 


FJMPI 


1400 


FSEQ 


;!050 


GRDELA 


7222 


IPNOPE 


4024 


FJUMP 


1130 


FSGE 


0100 


GSBEND 


7755 


IPOINT 


7034 


FLO 


3000 


FSGT 


0140 


GSBPTR 


0165 


ISDEF2 


3512 


FLal 


3400 


FSHIFT 


7443 


GSSl 


1562 


ISDIG 


6532 


FLOGCl 


6175 


FSIN10 


5641 


GSS2 


1563 


ISOIM 


1473 


FLQGC2 


6156 


FSINCl 


5713 


GTBKLP 


i7£0 


ISET 


7407 


FU0GC3 


6161 


FSINC3 


5716 


GTEMP 


7254 


ISIT 


4566 


FL0GC4 


6164 


FSINC4 


5721 


GWHERE 


7270 


ISITDF 


0590 


FMP 


6000 


FS1NC5 


5724 


HFOUND 


7321 


ISITFU 


1110 


F^IPI 


6400 


FSINC6 


5727 


HICHWD 


4333 


ISITLI 


4104 


FMTl 


5125 


FSINC7 


5732 


HLOOP 


27J2 


ISLIT 


4133 


FMT2 


5053 


FSINM4 


5735 


HPTR 


0061 


ISSOME 


1644 


FMT3 


5130 


FSINOK 


5657 


hrchar 


7296 


ISUMIN 


1013 


FMTENF 


5123 


FSIN2 


5705 


hrlop 


7302 


ITSDEF 


3514 


FN 


5453 


FSIN2E 


5710 


HRMES 


7323 


ITSDP 


3256 


FNERR 


0352 


FSLE 


0150 


UMLES 


2156 


ITSE 


3263 


FNEXIT 


1200 


FSLT 


0110 


lOLEAC 


6732 


ITSOP 


1220 


FOR 


0413 


FSNE 


0040 


IDUECD 


6725 


ITSP 


3300 


FORCT 


0063 


FSORX 


5407 


lOlECI 


6726 


JBPENT 


3707 


FORDON 


0663 


FST 


2000 


lOLELK 


6731 


JDIGIT 


3124 


FORERR 


0501 


FSTI 


2400 


lOLEPC 


6733 


JISDIG 


3367 


FORLIM 


0721 


FTANTl 


5677 


IF 


0375 


JMATCH 


2766 


FORLIS 


7705 


FTANT2 


5702 


IGNORE 


2115 


JPUTCH 


0777 


FORSTE 


0724 


FUNTAB 


1131 


IIXR 


7414 


JTXXIT 


3123 


FORVAR 


0452 


FUPRCl 


5762 


IMMED 


2494 


JUST0 


3190 


FOUMD 


0575 


FWD 


0200 


IN 


3431 


JUST0F 


3160 


FOURLF 


3557 


FXXPFX 


6023 


INCHAR 


7295 


JUST0P 


3163 


fpaod 


4456 


GALT 


7247 


INOEV 


0127 


JUSTl 


3145 


FPADDR 


4304 


GDIM2 


1564 


INDEX! 


0013 


JUST2 


3147 


FPQIV 


4667 


GET 


0001 


IN0EX2 


0014 


KEYWD 


0231 


FPQOIT 


4237 


GETADO 


1400 


INLCTM 


4065 


L4LUP 


3664 


FPFLAG 


0156 


GETARY 


7462 


INLOOP 


0572 


UBEGIN 


7563 


FPGOTO 


4273 


GETBLK 


1674 


INLUPF 


0432 


LCF 


6662 


FPjMP 


4317 


GETCH 


7201 


INODUN 


6710 


LET 


0312 


FPJUMP 


4274 


GETJ 


1770 


INOPPP 


6641 


LETDO 


0205 


FPLAC 


4351 


GETLIN 


2603 


INOTTT 


6645 


LETTER 


3446 


FPlOOP 


4202 


GETLRE 


2600 


INPLUP 


4034 


LFXLUP 


2333 


FPMUL 


4530 


GETOPR 


1015 


INPPTR 


4063 


LHALF 


3070 


FPNOAD 


4270 


getvar 


0311 


INPUT 


4007 


LIMIT 


0003 


FPQPER 


4305 


•GETWD 


0177 


INSERT 


2032 


LINBUF 


7512 


FPPGE 


4227 


GLOOP 


2711 


1NSRT5 


2030 


LINENO 


0052 


FPSKIP 


4314 


GOBOTH 


0532 


INT 


6434 


LINFIX 


2330 


FPSTO 


4322 


GOLIST 


7725 


INTAC 


6734 


LIST 


3600 


FPSilB 


4453 


GOSUB 


0505 


INTCOF 


67t0 


LIST2 


3640 


FPT 


4200 


GOTEMP 


0053 


INTCIF 


6771 


LIST3 


3695 


FPTEMP 


4576 


GOTO 


0517 


INTECD 


6762 


LIST4 


3661 


FPTR 


0057 


GOTOPR 


1202 


INTEMP 


6736 


LIST5 


3676 


FPHDtV 


4736 


GOTSS 


1074 


INTER 


6600 


LISTAL 


36i6 


FRNDX 


5404 


GOTSTE 


0634 


INTEXT 


6744 


LISTLU 


3620 


FRSTNE 


2155 


GOUT 


7251 


INTL 


6735 


LISTSO 


3617 
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LITRAL 


3131 


nobump 


4633 


0212 


00i[0 


O7706C 


LLLJMP 


7457 


NOCOMM 


0335 


0215 


0007 


07715 


LLLJMS 


7446 


NOINT 


0134 


023 


1366 


07729A 


LLLUUU 


7140 


NONBLN 


3110 


0233 


37t2 


07729B 


LIS 


6666 


NONEER 


5016 


0240 


0051 


07737 


LNOCND 


3630 


NOPARE 


1035 


0293 


5150 


07740 


LOADED 


4127 


NOPCR 


2216 


0255 


5lSl 


07741 


LOCCTR 


0045 


NORLFT 


6423 


0256A 


5156 


07743 


LOCTEM 


0671 


NORMED 


5220 


0256B 


6575 


07749 


LOCTMP 


1673 


NORMIT 


5207 


0240 


00ii 


07746 


LOG 


6114 


NORUBO 


5574 


027 


3370 


07753 


LOGACE 


6170 


NOSSl 


1460 


0305 


5192 


07762 


LOorwD 


6167 


N0SS2 


1453 


032 


3lJl 


07763A 


LOGOKW 


6172 


NOT 


3427 


036 


2767 


07763B 


LOULOC 


2171 


NOTBAD 


2127 


03T37B 


27?3 


07764A 


LPTOUT 


7163 


NOTBIG 


4620 


03754 


1162 


07764B 


LSF 


6661 


NOTCR 


3023 


03755 


1273 


07764C 


LSTLOC 


2160 


NOTFRS 


2061 


0377 


0071 


07764D 


LUP 


3405 


NOTHER 


0435 


04 


0160 


07766 


Lupr 


0426 


NOTKWO 


0313 


040 


2770 


07770 


MACHIN 


0000 


NOTNOW 


2000 


04001 


7525 


07771 


MAYEER 


4612 


NOTSGN 


3301 


04014 


1163 


07772 


MENDLI 


0041 


NOTTXT 


2236 


042 


3106 


07773 


MENDPD 


2363 


NOTVAR 


1105 


04200 


3105 


07774 


MEVAL 


7415 


NOTX10 


5236 


04213 


1144 


07775 


MEVALG 


7431 


NPSPER 


7555 


09400 


5347 


07776 


MGOLIS 


0720 


NSYMTA 


0006 


O6801A 


6615 


07777 


MGSBEN 


0525 


NULCMO 


7454 


O6201B 


7005 


OADD 


MINUS 


1316 


NULJOB 


7415 


06202 


6775 


OBHIGH 


MLBEGI 


0173 


NULLOP 


7430 


07 


0072 


OBLOW 


HLEND 


0174 


NUMBUF 


5335 


070 


67t4 


OBOP 


MLINBU 


0040 


01000 


3550 


0700 


i2t2 


oce 


MNSONE 


0736 


Oil 


0504 


OT000A 


2960 


QCMLIM 


MOREOI 


6470 


0110 


2361 


O7000B 


34t4 


OCOR 


MOREIN 


4000 


012 


0065 


O7000C 


7496 


OCOUNT 


MORERD 


1621 


0122 


2771 


07077 


12^5 


ODEV 


MOVE 


2012 


013 


1567 


07520 


5193 


OFLAG 


MOVLUP 


2072 


0132 


7265 


07545 


47t7 


OFLOW 


MPY 


5321 


0137 


7261 


07570 


6496 


OJUMP 


MPYLUP 


4552 


014 


2360 


07577 


4577 


OLOOP 


MTXXIT 


3201 


O140A 


0775 


07577B 


7994 


ONE 


MULCLR 


4571 


01406 


2772 


07600 


4349 


ONCDIM 


MULEXP 


3346 


0143 


7266 


07601 


7260 


ONCSS 


MULXTE 


3363 


017 


5147 


07603 


27?4 


ONLYl 


MUSTBE 


4570 


01742 


3375 


07610 


5349 


007600 


NOELAY 


7420 


0175 


7267 


07612 


t262 


007736 


NEUCHA 


2615 


0177 


0027 


O7640A 


0769 


OPl 


NEULIN 


2610 


01774 


3376 


O7640B 


2763 


0P2 


NEXT 


0600 


02 


0062 


O7640C 


7263 


opa 


NEXTCR 


0673 


0200 


0155 


07673 


3316 


OPOONE 


NEXTVA 


0637 


O2040A 


3373 


077 


00t0 


OPC 


NINTEC 


7457 


02062 


5344 


O7706A 


6944 


OPCRAN 



34t3 
2775 
3100 
3371 
31^2 
0094 
3745 
4743 
0162 
7264 
3104 
2327 
0774 
3101 
1274 
3102 
3374 
67t7 
5194 
0095 
5195 
5117 
5346 
1566 
6776 
3372 
7114 
4435 
1177 
1169 
7101 
5205 
7115 
7113 
7042 
0132 
7100 
7119 
1276 
0066 

ziii 

1064 

lflt6 
3322 
9492 

2326 

0023 
0022 
0021 
1203 
0030 
00f3 



63 



OPNUL 


7067 


PGOTOP 


0107 


PRENT 


233:6 


PZCRDO 


4949 


OPOINT 


7065 


PHRCHA 


6740 


PRESET 


01317 


OBIDLE 


7297 


OPOTAB 


7073 


PIGNOR 


0471 


PRINBL 


22?7 


QERROR 


4lt0 


OPRST 


7155 


PINCHA 


6741 


PRINCO 


2303 


QHRCHA 


7196 


OPS 


0026 


PINT 


5676 


PRINHA 


22«0 


RANDAE 


0491 


OPUTC 


7041 


PISITL 


0175 


PRINQU 


2229 


RBSMCH 


0139 


OTEMP 


1271 


PJSET 


2461 


PRINRE 


2242 


READ 


1623 


OTHER 


3000 


PLBEGI 


0172 


PRINSE 


23i2 

2lt3 


READLO 


0046 


OTSTl 


7112 


PLETDO 


0204 


PRINT 


READY 


6929 


0UT02 


01^0 


PLETTE 


3103 


PRINTC 


2207 


REALTI 


74t3 


OUTDEL 


7146 


PLIMIT 


2561 


PRINTG 


2206 


REJECT 


74f3 


OUTOEV 


0131 


PLINBU 


0037 


PRINTH 


22i2 


RELATE 


1342 


OUTIT 


7043 


PLINFI 


0161 


PRINTX 


3702 


REMPAC 


3043 


OUTNUM 


5000 


PLIST 


2563 


PRINUM 


3747 


RESETl 


7116 


OV 


0012 


PLITRA 


3377 


PRINVA 


3693 


RESET2 


7141 


PACN 


4742 


PLOG 


5775 


PRLOOP 


37li 


RESTOR 


3773 


PALI 


0150 


PLOT 


7400 


PRSUBR 


3714 


RETNER 


07i3 


PANORM 


0146 


PLOTB 


7914 


PRTEMP 


0042 


RETURN 


04f7 


PARI 


0147 


PLUS 


1312 


PRTXRE 


37i2 


RHALF 


30f4 


PARGER 


0047 


PMEVAL 


7441 


PS6N 


9675 


RMLEFT 


4413 


PASSCR 


0472 


PMPY 


5160 


PSKIPI 


£6i7 


RND 


9393 


PASSUM 


7440 


PNBF6 


5161 


PSLOOP 


0l£6 


RNDJMP 


9390 


PBECri 


1776 


PNOCR 


0757 


PSPACE 


i9«9 


RTCRR 


73*3 


PBIDLE 


7161 


PNONBL 


0122 


PSTICK 


0iii 


RUBO 


9973 


PBOMB 


0367 


PNOTNO 


2566 


PSTOVA 


0ll2 


RUN 


2492 


PBUSY 


7157 


PNUMBU 


0044 


PSXERR 


0100 


RUN2IN 


2943 


PCCUNT 


0744 


POADD 


0157 


PSYMTA 


0005 


RUN2LU 


2914 


PCHKri 


0163 


POFLAG 


6742 


PTABDE 


99t0 


RUN2N0 


2937 


PCOMMO 


3357 


POP 


3551 


PTABFL 


5971 


RUNIN 


2903 


PCOWT 


0141 


P0P3 


4434 


PTABLE 


2777 


RUNLUP 


2449 


PDEVCO 


7442 


POPERA 


3127 


PTCN 


0149 


RUNNOT 


24t7 


POL 


0036 


POTHER 


2776 


PTEXT 


0076 


SCHMOR 


1697 


PDLIST 


7644 


POUTIT 


6743 


PTPOUT 


7164 


SCRATC 


2440 


PEOIT 


0120 


POUTNU 


0117 


PTRIN 


7172 


SEARCH 


1440 


PERMSY 


7022 


PPACl 


0042 


PTUBIG 


3021 


SETCLO 


74*3 


PERROR 


0077 


PPAC2 


0043 


PUSERF 


5545 


SETRAT 


74*3 


PEVAL 


0101 


PPAC3 


0044 


PUSH 


23*4 


5ETSGN 


4912 


PEVALG 


2240 


PPACE 


0045 


PUTCDF 


7037 


SETUP 


7400 


PEXECU 


0103 


PPACS 


0046 


PUTCH 


0741 


SGN 


0726 


PEXP 


5776 


PPASSC 


0110 


PUTCIN 


7023 


SlMPLV 


3446 


PFINDI 


0672 


PPDLIS 


0125 


PUTER 


Uie 


SIN 


9424 


PFIX 


0106 


PPERMS 


2565 


PUTJ 


1741 


SINCHA 


7142 


PFNERR 


5546 


PPFLOO 


4741 


PUTLOG 


2lt2 


SJUMP 


0240 


PFPLOO 


4575 


PPFORL 


1760 


PUTLP 


7007 


SKIPIT 


0447 


PGETAD. 


0102 


PPINT 


6060 


PUTXRA 


07f6 


SLASH 


1332 


PGETBL 


0115 


PPOP 


0105 


PXFORL 


0996 


SLOOP 


2707 


PGETCH 


0032 


PPRINR 


2241 


PXLINB 


3746 


SLSHTM 


1337 


PGETLI 


0124 


PPRINT 


0114 


PXXCRL 


3129 


SNUHFL 


0044 


PGETLR 


3022 


PPRINU 


0123 


PXXEOF 


2944 


SPACER 


03*0 


PGETOP 


0111 


PPUSH 


0iei4 


PXXEXI 


3126 


SPCCIN 


0140 


PGETVA 


0113 


PPUTCH 


0033 


PXXLIT 


3130 


SPLEFT 


0144 


PGOLIS 


0164 


PPXRA 


7160 


PXXTHE 


2942 


SQEXIT 


9490 
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SQLOOP 


5435 


U7760 


0052 


UUACl 


0694 


XXCNO 


7232 


SQR 


5412 


U7767 


0035 


UUAC2 


0661 


XXtOF 


7902 


SSERR 


1570 


U7775 


0021 


UUAC3 


0666 


XXCO 


7094 


SSFIX 


4775 


U7777 


0050 


UUDATA 


t567 


XXCXIT 


7909 


SSONC 


0344 


UA6AD 


0620 


UUOEVC 


0709 


XXCXP 


7126 


SSTWO 


0345 


UACl 


0037 


UUPUDG 


0739 


xxriNi 


7504 


STAR 


1327 


UAC2 


0040 


UUJMP 


0722 


XXFN 


7107 


START 


1000 


UAC3 


0041 


UUJMS 


0707 


XXFOR 


7239 


STICKI 


6430 


UACCPT 


0453 


UUMEVA 


0693 


XX6E 


7040 


STOP 


2570 


UA.DCB 


0600 


UUNOAD 


7460 


XXGET 


7193 


STOVAR 


0341 


UADCIN 


0613 


UUPFIX 


0677 


XX60SU 


7241 


SUBRA 


2161 


UADCMY 


0615 


UUSETF 


0030 


XXGOTO 


7246 


SXERR 


6441 


UADCN 


0622 


UUUJMP 


0730 


XXBT 


7060 


TAB 


5547 


UCLC 


0345 


UUUJMS 


07*1 


XXIF 


7240 


TABDES 


6367 


UCLOOP 


0217 


UUULLL 


0392 


XXINPU 


7263 


TABDO 


6350 


UCLS 


0340 


UVP 


7902 


XXINT 


7142 


TABFLG 


2345 


UOEVCO 


0056 


UWAIT 


0437 


XXLBRA 


7109 


TABOK 


6360 


UDOAD 


0051 


UWAITC 


0440 


XXLE 


7039 


TABTHR 


2362 


UOOPER 


1363 


VAR 


0343 


XXLET 


7290 


TAN 


5600 


UFFUD 


0756 


VARTEM 


0993 


XXLIS 


7142 


TBEGFI 


5572 


UFJMP 


0757 


VSCHIN 


35J4 


XXLIST 


7196 


TEN 


0000 


UCETWO 


0057 


VSCHLU 


3499 


XXLIT0 


7906 


THESKI 


1353 


LJCHl 


3562 


VSCHNO 


3920 


XXLOG 


7li3 


THISTX 


3107 


UIEXT 


0234 


MAIT 


7493 


XXLPT 


9341 


TIM 


7477 


UIEXT2 


0243 


WAITC 


7473 


XXLT 


7096 


TIMI 


0004 


UIEXT3 


0245 


WDTEMP 


1099 


XXMINU 


7029 


T1M2 


0005 


UIEXT4 


0260 


WORD 


0090 


XXNE 


7043 


TIP 


0031 


UINAC 


0631 


XEXECU 


0412 


XXNEXT 


7294 


TOOLON 


5162 


UJMP 


0054 


XGISIT 


4066 


XXNRUS 


73t7 


TPRINT 


6370 


UJMS 


0055 


X6MUST 


73)9 


XXOPEN 


7103 


TRALUP 


2105 


UMEVAL 


0031 


XISIT 


4093 


XXl»LOT 


7422 


transf 


2103 


UMOPER 


1321 


XMUST 


75§2 


XX^LUS 


7023 


TRYAfil 


5133 


UNDERF 


4645 


XRCSTA 


1003 


XXPRIN 


7300 


TRYSTE 


0626 


UPAGET 


0653 


XXABS 


9lS4 


XX^TP 


7344 


TST 


7421 


UPARR2 


4365 


XXACPT 


94i6 


XX^TR 


7347 


TSTFX 


7417 


UPARRO 


6457 


XXADB 


7223 


XXPUT 


7193 


TSTP 


7431 


UPARRX 


5740 


XXADC 


9196 


XXRBRA 


7090 


TTYIN 


7173 


UPCOMD 


0731 


XXATN 


9120 


XXREAD 


7337 


TTYOUT 


7165 


UPFIX 


0032 


XXBSLS 


7230 


XXREAU 


7426 


TUBIG 


2657 


UPFUN 


0747 


XXCLC 


9220 


XXREJT 


7493 


TWlDtH 


2357 


UPJMP 


0736 


XXCLEA 


7406 


XXREM 


7327 


TWOSS 


1077 


UREAL 


0460 


XXCLOS 


7066 


XXRETR 


7309 


TXTPAK 


3046 


UREJT 


0456 


XXCLS 


9219 


XXRNO 


7149 


U10 


0036 


USE 


7446 


XXCOMM 


7062 


XXHSTO 


7322 


U100 


0013 


USERFN 


1620 


XXCOS 


7H2 


XXNUB 


7392 


U17 


0047 


USETC 


0411 


XXCRLF 


9226 


XXRUN 


7149 


U177 


0017 


USETF 


0550 


XXDATA 


7343 


XXtCR 


7190 


UIP 


7503 


USETM 


0416 


XXOEF 


93S3 


XXSCMI 


7044 


U2P 


7504 


USETR 


0400 


XXDELA 


7412 


XXtETC 


7443 


U4707 


0020 


USKIPI 


7461 


XXDIM 


9316 


XXSETR 


7439 


U5010 


0034 


UTEMP 


0053 


XXCG 


9046 


XXSGN 


7137 


U7 


0033 


UTIM 


0541 


XXCL 


9091 


XXSIN 


9190 
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XXSLAS 


7031 


XXSOR 


7131 


XXSTAR 


7027 


XXSTCP 


7076 


XXSTOP 


7312 


XXTAB 


7207 


XXTAN 


7115 


XXTEXT 


7501 


XXTHCN 


7253 


XXTIME 


7204 


XXTO 


7072 


XXTTV 


7201 


XXTTYI 


7347 


XXTTYO 


7354 


XXUCOM 


7462 


XXUNAR 


7503 


XXUPAR 


7033 


XXUSE 


7416 


XXUUF 


7212 


XXUAIT 


7452 


YYUAIT 


7456 


ZEROON 


5144 


ZERO 


0152 


ZFIXCX 


4767 


ZZaOB 


0775 


Z2A0C 


0770 
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STATEMENT AND COMMAND SUMMARIES 

Summaries of the editing and program control commands 
available in 8K BASIC are presented below. 

Edit and Control Commands 



Command 



CTRL/C 



CTRL/O 



Abbreviation 





LIS n 


NO RUBOUTS 




RUBOUTS 




RUN 


RUN 


SCRATCH 


SCR 



Action 

Stops a running program, and 
returns to the editing phase of 
BASIC. 

Stops output of a running BASIC 
program. Remains in this state 
until BASIC requests INPUT, an 
error occurs, or until another 
CTRL/0 is typed. 

Lists the entire program in core. 

Lists line n through end of pro- 
gram. 

Disables the RUBOUT key. 

Enables the RUBOUT key. 

Compiles and runs the program 
currently in core. 

Erases the current program from 
core. 



BASIC Statements 



Statement 
DATA 



DEF 



Example of Form 

DATA nl, n2, 
. . . nn 



DEF FNB (x) = 

f(x) 
DEF FNB (X, y) 

=f(x, y) 



Explanation 

Numbers nl through nn are to be 
associated with corresponding vari- 
ables in a READ statement. 

The user may define his own func- 
tion to be called within his pro- 
gram by putting a DEF statement 
at the beginning of a program. The 
function name begins with FN and 
must have three letters. The func- 
tion is then equated to a formula 
f(x) which must be only one line 
long. 
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Statement 



Example of Form 



Explanation 



DIM 



DIM v(s) 



END 



FOR-TO- 
STEP 



END 



FOR v=n TO f2 
STEP f3 



GOSUB 



GOTO 

IF-GOTO 
IF-THEN 



GOSUB n 



GOTO n 



IF f 1 r f2 GOTO n 
IF f 1 r f2 THEN n 



INPUT 


INPUT vl, v2, 




. . . vn 


LET 


LET v=f 


LPT 


LPT 


NEXT 


NEXT V 



Enables the user to create a table 
or array with the specified number 
of elements where v is the variable 
name and s is the maximum sub- 
script value. Any number of ar- 
rays can be dimensioned in a 
single DIM statement. 

Last statement in the program. 
Signals completion of the program. 

Used to implement loops; the vari- 
able V is set equal to the formula 
fl. From this point the loop cycle 
is completed following which v is 
incremented after each cycle by f3 
until its value is greater than f2. 
If STEP f3 is omitted, f3 is as- 
sumed to be +1. f3 may also be 
negative. 

Allows the user to enter a sub- 
routine at several points in the 
program. Control transfers to line 
n. 

Transfers control to line n and 
continues execution from there. 

Same as IF-THEN. 

If the relationship r between the 
formulas fl and f2 is true, trans- 
fers control to line n (n may also 
represent an operation) ; if not, cont- 
inues in regular sequence. 

Causes typeout of a ? to the user 
and waits for the user to supply 
the values of the variables vl 
through vn. 

Assigns the value of the formula f 
to the variable v. 

Assigns line printer as output de- 
vice. 

Used to tell the computer to re- 
turn to the FOR statement and 
execute the loop again until v is 
greater than or equal to f2. 
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Statement 


Example of Form 


PRINT 


PRINT al, a2, 




... an 


PTP 


PTP 


PTR 


PTR 


READ 


READ vl, v2. 




. . . vn 



REM 



RESTORE 



RETURN 



STOP 



TTY IN 



TTYOUT 



REM 



RESTORE 



RETURN 



STOP 



TTY IN 



TTYOUT 



During input to the editor or 
mand, the following messages 
the input: 



Message 
LINE TOO LONG 



DELETED 



Explanation 

Prints the values of the specified 
arguments, which may be variables, 
text or format control characters 
(, or ;). 

Assigns high-speed paper tape 
punch as output device. 

Assigns high-speed paper tape 
reader as input device. 

Variables vl through vn are as- 
signed the value of the correspond- 
ing numbers in the DATA string. 

When typed as the first three let- 
ters of a line, allows typing of 
remarks within the program. 

Sets pointer back to the beginning 
of the string of DATA values. 

Must be at the end of each sub- 
routine to enable control to be 
transferred to the statement follqw- 
ing the last GOSUB. 

Terminates execution at that point 
at which the statement is reached 
in the program. 

Assigns a console terminal as input 
device. 

Assigns a console treminal as out- 
put device. 

when executing an INPUT corn- 
may be printed in response to 



Explanation 



TTY 



The line just typed exceeded the available core 
buffer and must be retyped. 

The line has been deleted in response to an 
ALTMODE character and must be retyped. 

Back arrow is printed any time a RUBOUT or 
SHIFT/ O is used. The previous character is 
deleted. 

BASIC prints TTY to indicate that there is no 
more input from the high-speed reader and 
that it is waiting for input from the Teletype. 
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appendix a 

loading procedures 



Initializing the system 

Before using the computer system, it is good practice to initialize 
all units. To initialize the system, ensure that all switches and con- 
trols are as specified below. 

1 . Main power cord is properly plugged in. 

2. Teletype is turned OFF. 

3. Low-speed punch is OFF. 

4. Low-speed reader is set to FREE. 

5. Computer POWER key is ON. 

6. PANEL LOCK is unlocked. 

7. Console switches are set to 0. 

8. SING STEP is not set. 

9. High-speed punch is OFF. 

10. DECtape REMOTE lamps OFF. 

The system is now initialized and ready for your use. 



Loaders 

READ-IN MODE (RIM) LOADER 

When a computer in the PDP-8 series is first received, it is noth- 
ing more than a piece of hardware; its core memory is completely 
demagnetized. The computer "knows" absolutely nothing, not even 
how to receive input. However, the programmer can manually 
load data directly into core using the console switches. 

The RIM Loader is the very first program loaded into the com- 
puter, and it is loaded by the programmer using the console 
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switches. The RIM Loader instructs the computer to receive and 
store, in core, data punched on paper tape in RIM coded format 
(RIM Loader is used to load the BIN Loader described below.) 

There are two RIM loader programs: one is used when the in- 
put is to be from the low-speed paper tape reader, and the other 
is used when input is to be from the high-speed paper tape reader. 
The locations and corresponding instructions for both loaders are 
listed in Table A-1 . 

The procedure for loading (toggling) the RIM Loader into core 
is illustrated in Figure A-L 

Table A-1 . RIM Loader Programs 







Instruction 




Location 


Low-Speed Reader 


High-Speed Reader 


7756 


6032 






6014 


7757 


6031 






6011 


7760 


5357 






5357 


7761 


6036 






6016 


7762 


7106 






7106 


7763 


7006 






7006 


7764 


7510 






7510 


7765 


5357 






5374 


7766 


7006 






7006 


7767 


6031 






6011 


7770 


5367 






5367 


7771 


6034 






6016 


7772 


7420 






7420 


7773 


3776 






3776 


7774 


3376 






3376 


7775 


5356 






5357 


7776 


0000 






0000 



After RIM has been loaded, it is good programming practice to 
verify that all instructions were stored properly. This can be done 
by performing the steps illustrated in Figure A-2, which also 
shows how to correct an incorrectly stored instruction. 

When loaded, the RIM Loader occupies absolute locations 7756 
through 7776. 
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( INITIALIZE ) 



WOECTAPE USERS SHOULD 
LOAD RIM INTO FIELD 



SET ROTARY 

SELECTOR SWITCH 

TO MD 



SET SWITCHES 6-8 

TO DESIRED 
MSTRUCTKDN FIELD* 



SET SWITCHES 9- 
TO DESIRED 
DATA FIELD * 



PRESS 
EXT LOAD ADDR 



SET SR 
TO 7756 



PRESS 
ADOR LOAD 



SET SR= 
FIRST INSTRUCTION 



PRESS DEP 



SET SR= 
NEXT INSTRUCTION 




Figure A-1 . Loading the RIM Loader 
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[ INITIALIZE ] 












SET ROTARY 

INDICATOR 

SWITCH TO MO 






1 






SET SWITCHES 

6-8 TO FIELD IN 

WHICH RIM HAS 

BEEN LOADED 






1 






PRESS 
EXT ADDR LOAD 






1 




SET SR=7756 




1 






PRESS 
ADDR LOAD 














PRESS EXAM 






res 


/^''*^^^^\^ NO 




NC 


^-^^CORRECT^O 
C INSTRUCTION > 








1 SET SR=MA-t 


^^^ 
















•V, 

C 


S^HECKED^x^ 


1 PRESS 
1 ADDR LOAD 




^S?ES 








1 




RIM IS LOADED } 


1 SET SR= CORRECT 
1 INSTRUCTION 































Figure A-2 . Checking the RIM Loader 

BINARY (BIN) LOADER— 

The BIN Loader is a short utility program which, when in core, 
instructs the computer to read binary-coded data punched on paper 
tape and store it in core memory. BIN is used primarily to load the 
programs furnished in the software package (excluding the loaders 
and certain subroutines) and the programmer's binary tapes. 

BIN is furnished to the programmer on punched paper tape in 
RIM-coded format. Therefore, RIM must be in core before BIN 
can be loaded. Figure A-3 illustrates the steps necessary to prop- 
erly load BIN. And when loading, the input device (low- or high- 
speed reader) must be that which was selected when loading RIM. 
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fl) «< LOAD RIM ) [ 


SMFIgumC2-1.C2-2| 




SST ROTARY 

SELECTOR SWITCH 

TO MO 




~n 








SET SWITCHES 

6-e TO FIELD 

WHICH CONTAINS 

RIM 




I 








SET SWITCHES 

9-t1 TO FIELD IN 

WHICH BIN IS 

TO BE lOAOEO 






, 








PRESS 
EXT AODR LOAD 






' 








SET SR.7756 








1 






PRESS AODR LOAD 






HIGH-SPEED 


^/wHlChnV. 
<^ READER J> 


LOW-SPEED 




1 


READER 




RE 


.ER J 




TURN HSR ON 


TURN TTY TO LWE 




' 


i 


PUT BIN LOADER 
IN HSR 






PUT BIN LOADER 
IN LSR 












' 


' 




PRESS 
CLEAR AND CONT 




PUT LSR TO START 




o 






^,''^ape\^ 

<' READS IN ^ 
j^ES 


NO 
1 




1 PRESS HALT 








1 














SET SWITCHES 

6-8 TO FIELD 

BIN WAS LOADED 

INTO 








i 




PRESS 1 
EXT AODR LOAD 1 






I 




1 SET S«-rT77 








i 




PRESS 
AODR LOAD 








i 




1 PRESS EXAM 


] 




^ MD'SJOI "p 

j^S 


:^-^ 




f BIN L 

k. ISLC 


OAOER 
lAOCD ., 


) 



Figure A-3 Loading the BIN Loader 
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When stored in core, BIN resides on the last page of core, oc- 
cupying absolute locations 7625 through 7752 and 7777. 

BIN was purposely placed on the last page of core so that it 
would always be available for use — ^the programs in DEC's soft- 
ware package do not use the last page of core (excluding the Disk 
Monitor). The programmer must be aware that if he writes a 
program which uses the last page of core, BIN will be wip- 
ed out when that program runs on the computer. When this 
happens, the programmer must load RIM and then BIN before 
he can load another binary tape. 

Binary tapes to be loaded should be started on the leader-trailer 
code (Code 200), otherwise zeros may be loaded into core, destroy- 
ing previous instructions. 

Figure A-4 lilustrates the procedure for loading binary tapes 
into core. 
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(X 



-\ 



SEE FHGURE C2-3J 



SET ROTARY 

SELECTOR SWITCH 

TO AC 



SET SVMTCHES 

6-B TO FIELD IN 

WHICH BIN IS 

LOADED 



SET SWITCHES 9-tl 
TO FIELD IN WHICH 
PROGRAM IS TO BE 
LOADED 



PRESS 
EXT ADDR LOAD 



SET SR TO 7777 



WHICH 
HIGH-SPEED READER ^ READER \, LOW-SPEED READER 




Figure A-4. Loading A Binary Tape Using BIN 
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appendix b 

character codes 

ASCII-l^ Character Set 









Decimal 








Decimal 




8-Bit 


6-Bit 


Equivalent 




8-Bit 


6-Bit 


Equivalent 


Character 


Octal 


Octal 


(Al Format) 


Character 


Octal 


Octal 


(Al Format) 


A 


301 


01 


96 


! 


241 


41 


-1952 


B 


302 


02 


160 


" 


242 


42 


-1888 


c 


303 


03 


224 


# 


243 


43 


-1824 


D 


304 


04 


288 


$ 


244 


44 


-1760 


E 


305 


05 


352 


% 


245 


45 


-1696 


F 


306 


06 


416 


& 


246 


46 


-1632 


G 


307 


07 


480 


' 


247 


47 


-1568 


H 


310 


10 


544 


( 


250 


50 


-1504 


I 


311 


11 


608 


) 


251 


51 


-1440 


J 


312 


12 


672 


* 


252 


52 


-1376 


K 


313 


13 


736 


-f 


253 


53 


-1312 


L 


314 


14 


800 




254 


54 


-1248 


M 


315 


15 


864 


_ 


255 


55 


-1184 


N 


316 


16 


928 




256 


56 


-1120 


O 


317 


17 


992 
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1 An abbreviation for American Standard Code for Information Interchange. 

2 The character in parentheses is printed on some Teletypes. 
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